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A FORTRAN V PROGRAM FOR PREDICTING THE 

DYNAMIC RESPONSE OF THE APOLLO COMMAND MODULE 

TO EARTH IMPACT 

By William E. Thomas, Jr. 

Manned Spacecraft Center 

SUMMARY 


A digital-computer program, capable of determining the nonlinear motion (in a 
gravity field) of two six-degree-of-freedom rigid bodies connected by shock struts and 
subjected to ground impact, is presented in this report. A sample problem is included 
to provide a correlation between computer results and actual test results. All axis 
systems and equations used in the digital-computer program and a procedure for using 
the computer program are also presented in this report. 


INTRODUCTION 


A mathematical approach for determining the dynamic response of a falling body 
to impact with a soil surface is presented in this report. Although the approach pre- 
sented in this report is specifically applied to the Apollo command module structure 
and crew couch, the approach can readily be adapted to a wider range of similar dy- 
namic problems associated with the impact of falling bodies. 

A successful Apollo manned mission terminates with the command module (CM) 
impacting on water. If the mission should be aborted, however, a land impact could 
occur, and this impact would result in severe loading on the capsule-couch system. 
Under these circumstances, couch acceleration must be kept within human exposure 
limits, and couch-strut stroking must restrict couch excursion to a specified accept- 
able clearance envelope within the CM. To determine analytically the dynamic re- 
sponse of the capsule-couch system to earth impact, a 12-degree-of-freedom 
mathematical model was formulated, and a digital-computer program was written to 
carry out the computations. 

The three types of capsule-couch interconnecting struts that may be handled by 
the computer program are linear spring shocks with damping proportional to the square 
of the velocity, honeycomb shocks with Coulomb damping, and cyclic-deformation 
struts with structural damping. The computer program contains four independent 
empirical soil-force equations with nine input constants, which can be altered to corre- 
late with different soil types. The computer-program input also permits the user to 



specify the location of a three-axis accelerometer anywhere on the crew couch. Ap- 
pendix A gives the computer-program listing. Appendix B provides data on the general 
input and output of the program. 


SYMBOLS 


A1 number to control the switch from truncation error to 

relative truncation error in the variable- step 

-3 

Adams-Moulton integration routine (order 10 ) 

A2 upper bound for the single-step error in the variable- step 

-5 

Adams-Moulton integration routine (order 10 ) 

A3 lower bound for the single-step error in the variable-step 

Adams-Moulton integration routine (A3 s A2/55) 

A4 lower bound for the step size in the variable- step 

Adams-Moulton integration routine (A4 > 0. 0) 

A5 upper bound for the step size in the variable- step 

Adams-Moulton integration routine 

A7 factor for reducing the step size in the variable-step 

Adams-Moulton integration routine 

ACCEL 2 . 2 ,ACCEL 2 . 2 , components (parallel to the ig-, j 2 ~, and kg-axes, 

ACCEL- „ respectively) of the relative-displacement vector 

2 ’ k ’ 2 from c. g. 2 to the accelerometer mounted on 

body 2, in. 


AC(n) 


AKC 


AKNT 

AKP 

n 


elemental areas associated with points 

S, (n = 1, 2, . . . , NSK), in 2 
l,n 

soil coefficient for the dynamic vertical force due to the 
velocity of the structure moving vertically into the 
soil (for use after soil-wedge formation) 

slope of the dynamic vertical soil-force loading line 
prior to soil-wedge formation, lb/in. 

slope of the honeycomb SHOCK n compression unloading 
line (n = N gg + 2, . . . , N + 1), lb/in. 


AKPS 


slope of the honeycomb couch-bumper unloading line, 
lb/in. 


2 


AKT 

n 

AMU 

AR o 

AREA1 

AREA2 

AREA 3 
ARS1 

ARS2 

ARS3 

BKC1S 

BOFF 

C ST 

CD 

n 

CDO 

CGO 

CK 

n 

CL 

n 


slope of the honeycomb SHOCK^ tension unloading line 
(n = N SS + 2 > •••» N + D> lb/in. 

friction coefficient between the structure and the soil 

origin of the Apollo reference-system coordinates 

area associated with any given point on edge ring 1, in 2 

area associated with any given point on edge ring 2, in 2 

area associated with any given point on edge ring 3, in 2 

relative-displacement vector from AR to point RSI 
along the X-axis, in. 0 

relative-displacement vector from AR to point RS2 
along the X-axis, in. 0 

relative-displacement vector from AR to point RS3 
along the X-axis, in. 0 

slope of the honeycomb couch-bumper loading line, lb/in. 

slope of the static vertical soil-force unloading line, 
lb/in. 

structural damping coefficient for the cyclic-deformation 
shock struts (when they are used), lb-sec/in. 

equivalent fluid-damping coefficient for spring 
SHOCK n (n = 2, . . . , Ngg +1), lb-sec 2 /in 2 

soil drag coefficient for the horizontal drag force due to 
the horizontal velocity of the structure moving through 
the soil 

soil drag coefficient for the horizontal drag force due to 
vertical penetration of the structure into the soil 

spring constant of spring SHOCK (n = 2, . . . , N CC! +1), 
lb/in. n 

equilibrium position of SHOCK n (n = 2, . . . , N + 1), in. 

center of gravity of body n (n = 1, 2) 
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components about the i j n -, and k n -axes, respectively, 

of the total torque acting through c.g. n (n = 1, 2), 
in-lb 


DENSTY 

DRl 

DR2 

DR3 

E 

ELIGn 

EL1CS 

EL1T 

n 

EL2C 

n 

EL2T n 

EL3C 

n 

EL3T 

n 


3 

soil density, lb/in 

compression stroke required to reach the constant-crush 
level of a point on edge ring 1, in. 

compression stroke required to reach the constant-crush 
level of a point on edge ring 2, in. 

compression stroke required to reach the constant-crush 
level of a point on edge ring 3, in. 

modulus of elasticity for the heat- shield facing material, 
lb/in 2 

strut compression stroke required to reach the first 
constant- crush level of honeycomb 
SHOCK n (n = N gs + 2, . . . , N + 1), in. 

couch-bumper compression stroke required to reach 
the constant-crush level, in. 

honeycomb or cyclic -deformation strut tension stroke 
required to reach the first constant-load level of 
honeycomb SHOCK^ (n = Ngg + 2, • • • , N + 1), in. 

strut compression stroke required to reach the end of 
the first constant-crush level of honeycomb 
SHOCK n (n = Ngg + 2, . . . , N + 1), in. 

strut tension stroke required to reach the end of the 
first constant-crush level of honeycomb 
SHOCK n (n = Ngg + 2, . . . , N + 1), in. 

strut compression stroke required to reach the 
second constant- crush level of honeycomb 
SHOCK n (n = Ngg + 2, . . . , N + 1), in. 

strut tension stroke required to reach the 
second constant-crush level of honeycomb 
SHOCK n (n = Ngg + 2, . . . , N + 1), in. 
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f h,max 

f s,max 


F .C , F .C , F ,C 
x, 1 ir y, 1 nr z, 1 n 


F 9 C , F 9 C , F 9 C 
x ? 2 * n y, z n z^ Z n 

FA 

FD 

n 

FD(n) 

FEC13M 

FEC13P 

FEC13S 

n 


FEM13S 

n 


FFNSN 

n 


components of couch-bumper force acting on body n 
along the i^-, j -, and k^-axes (n = 1, 2), respec- 
tively, lb 

maximum force in the honeycomb shock struts, lb 
maximum force in the spring shock struts, lb 

components of force due to SHOCK n (n = 2, . . . , N + 1) 

acting on body 1 parallel to the L -, L -, and k 1 -axes, 
respectively, lb 

components of force due to SHOCK^ (n = 2, , N + 1) 

acting on body 2 parallel to the ig-, jg-j and kg-axes, 
respectively, lb 

internal soil-friction angle, rad 

total damping force in SHOCK n (n = 2, . . . , N + 1), lb 

total horizontal soil force acting at point 
Sj n (n = 1, 2, ..., NSK), lb 

left-side couch-bumper compressive force at the start 
of a computer run, lb 

right-side couch-bumper compressive force at the start 
of a computer run, lb 

strut compressive force in honeycomb SHOCK^ 

(n = Ngg + 2, . . . , N + 1) at the start of a computer 
run, lb 

strut tensile force in honeycomb SHOCK n 

(n = N oc + 2, . . . , N + 1 ) at the start of a computer 
bb 

run, lb 

strut friction force in honeycomb SHOCK n 

(n = Ngg + 2, . . . , N + 1 ) when the piston moves away 

from the equilibrium position in the compressive end 
of the cylinder, lb 
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FFNSP 

n 


FFPSN 

n 


FFPSP 

n 


FG. , FG. , FG, 


i,n 


j> n’ k, n 


strut friction force in honeycomb SHOCK n 

(n = Ngg + 2, . . . , N + 1) when the piston moves 

toward the equilibrium position from the compressive 
end of the cylinder, lb 

strut friction force in honeycomb SHOCK n 

(n = Ngg + 2, . . . , N + 1) when the piston moves 

toward the equilibrium position from the tensile end 
of the cylinder, lb 

strut friction force in honeycomb SHOCK^ 

(n = Ngg + 2, . . . , N + 1) when the piston moves away 

from the equilibrium position in the tensile end of the 
cylinder, lb 

components of the gravity force acting on body n along 
the i n ~, j and k n ~axes (n = 1, 2), respectively, lb 


FHD(n) 


dynamic horizontal soil force acting at point 

S 1 (n = 1, 2, ..., NSK), lb 
1, n 


FHS(n) 


static horizontal soil force acting at point 
(n = 1, 2, . . . , NSK), lb 

l, n 


FK 

n 

FRl 

FR2 

FR3 





FS. t , FS. , FS. , 
1,1, n’ J, 1, n’ k, 1, n 


total nondamping force in SHOCK^ (n = 2, . . . , N + 1), lb 

constant-crush level of a point on edge ring 1, lb 

constant-crush level of a point on edge ring 2, lb 

constant- crush level of a point on edge ring 3, lb 

components of the total soil force acting on body 1 along 
the ij-, j^-, and k^-axes, respectively, lb 

components of the soil force acting on body 1 at point 
Sj n (n = 1, 2, ..., NSK) along the ij-, j^-, and 

kj-axes, respectively, lb 


FSN (n) 


component of force FSR(n) normal to a tangent plane at 

point S 1 (or at point S 1 C1 ) (n = 1, 2, . . . , NSK), 
iu i> n 1, Kol, n 
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FSR(n) 

FVD(n) 

FVS(n) 

FVT(n) 


G 

G B, i, n’ G B, j, n’ G B, k, n 

CJ=, G=, Gg 

G * , G * , G * 

x, l,n’ y, l,n’ z, l,n 


tot al soil force acting at point Sj (|FSR(n)| = 
VFD(n ) 2 + FVT(n) 2 ) (n = 1 , 2, ! . . , NSK), lb 

dynamic vertical soil force acting at point 
Sj (n = 1, 2, NSK), lb 

static vertical soil force acting at point 
s i n (n = i, 2, NSK), lb 

total vertical soil force acting at point 
Sj (n = 1, 2, ..., NSK), lb 

o 

acceleration of gravity, in/sec 

components about the i^-, j^-, and k n ~axes, respec- 
tively, of the torque acting through c. g. (n = 1, 2) 
due to the couch bumper, in -lb n 

components of the acceleration of gravity along the 
X-, Y-, and Z-axes, respectively, in/sec 

components about the ij-, j^-, andkj-axes, respec- 
tively, of the torque acting through c. g. due to 
SHOCK n (n = 2, 3, . . . , N + 1), in-lb 


G x, 2, n’ G y, 2, n’ G z, 2, n 


components about the i 2 ~, j 2 ~, and k 2 -axes, respec- 
tively, of the torque acting through c. g. 2 due to 
SHOCK n (n = 2, 3, . . . , N + 1), in-lb 


GC0NST 


soil coefficient for the static vertical force due to verti- 
cal penetration of the structure into the soil 


GPOWER power to which the vertical penetration of the structure 

into the soil is raised in the static vertical-force soil 
equation 

GS i j, GSj j, GS k j components about the ij-, j^-, and k^ -axes, respec- 

tively, of the torque acting through c. g. due to the 
total soil force, in-lb 


GS i,l,n’ GS j,l,n’ GS k,l,n 


components about the ij-, j^, and kj-axes, respectively, 

of the torque acting through c. g. ^ due to the soil 

forces acting at point S.. (n = 1, 2, . . . , NSK), in-lb 

i, n 
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HEATB 

hh 

I i , ,n ,I j',n ,I k , ,n 


VV k n 


i T V k T 

Wn 


i n’V k n 


LBC 

M 


N 

N H, MAX 
N S, H, MAX 
N S, MAX 


component of the relative-displacement vector from 
AR q to the edge of the capsule along the Z-axis, in. 

average heat- shield thickness, in. 

body n moments of inertia about the i^-, j^-, and 

2 

kj^-axes (n = 1, 2), respectively, lb-sec /in. 

arbitrarily oriented orthogonal body axes originating at 
c. g. (n = 1, 2) (j j-axis must be parallel to X-axis) 

principal inertial axes for body n (n = 1, 2) 


unit vectors directed parallel to and in the positive 
direction of the i j and k n -axes (n = 1, 2), 
respectively 

unit vectors directed parallel to and in the positive 
direction of the i^-, j^-, and k^-axes (n = 1, 2), 
respectively 

length of the radius r LBC which defines a ring con- 
taining the bolt- circle points (figs. 10 and B-3) 

matrix of the direction cosines for transforming vector 
components from the principal body axes of body n 
(n = 1, 2) to the arbitrarily oriented axes of the 
same body 

2 

mass of body n (n = 1, 2), lb- sec /in. 

total number of spring-damper and honeycomb struts 
(not including couch lateral bumpers) 

identifying number of the honeycomb strut which has 
the maximum force 

identifying number of the honeycomb strut which has 
the maximum stroke 

identifying number of the spring strut which has the 
maximum force 

number of spring struts 
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N s, S, MAX 

NBC 

NOOR 

NOTHT 

NPHS 

NPR1 

NPR2 

NPR3 

NSK 

P 

P P 
l, n’ * 2 , n 


P l, n P 2 , n 

P 2 + L’ P 2-L 
PENETRATION (1 ) 

R 

Rc n 
Oj n 

RC 

RSI 


identifying number of the spring strut which has the 
maximum stroke 

number of points on the heat- shield bolt circle 

number of rings of points on the heat shield (includes the 
bolt- circle ring) 

number of radial lines of points on the heat shield 

heat- shield point corresponding to YHSM 

ring 1 point corresponding to YRlM 

ring 2 point corresponding to YR2M 

ring 3 point corresponding to YR3M 

number of points of the heat shield which are capable of 
deflecting 

point of intersection of plane R and the heat- shield rim 
in the direction of the vehicle velocity vector 

points on bodies 1 and 2 , respectively, for which the 
relative-displacement vectors are determined 
(n = 1, 2, . . . , N + 1) (also the shock attachment points 
for n = 2, 3, . . . , N + 1) 

magnitude of the relative-displacement vector from 

point P 1 to point P 9 (n = 1, 2, . . . , N + 1), in. 

1 3 n z j n 

tips of the right-side and left- side couch lateral bumpers, 
respectively- 

depth of penetration of point ^ into the soil, meas- 
ured parallel to the Y-axis 

plane defined in figure B-l 

position vector from c. g. ^ to point n (or to 
point S x RS1? n ) (n = 1, 2, . . . , NSK) ’ 

origin of the outer heat- shield radius (must be on the 
X-axis) 

origin of the edge- ring 1 radius (must be on the X-axis) 
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RS2 

RS3 

r LBC 


S l, RSI, n 
S l,RS2,n 
S l,RS3,n 

S H, MAX 

S S, MAX 
SCI 

n 

SC1S 

SC2 

n 

SE3M 

SE3P 

SEVC3 

n 


SEVC3M 


origin of the edge-ring 2 radius (must be on the X-axis) 

origin of the edge- ring 3 radius (must be on the X-axis) 

radius which defines a ring containing the bolt-circle 
points (figs. 10 and B-3) 

radius from the center of the heat shield to the ring 
(of points) n (n = 1, 2, . . . , NOOR) on the heat 
shield, in. 

points on the outer surface of the undeflected heat shield 
for which deflections are to be determined 
(n = 1, 2, . . . , NSK) 

points on the outer surface of undeflected edge ring 1 
(n = 1, 2, . . . , 24) 

points on the outer surface of undeflected edge ring 2 
(n = 1, 2, . . . , 24) 

points on the outer surface of undeflected edge ring 3 
(n = 1, 2, . . . , 24) 

maximum stroke in the honeycomb shock struts 

maximum stroke in the spring shock struts 

first constant-crush level in the compression of honey- 
comb SHOCK n (n = Ng g + 2, . . . , N + 1), lb 

constant-crush level in the compression of the couch- 
bumper shocks, lb 

second constant-crush level in the compression of honey- 
comb SHOCK n (n = Ngg + 2, . . . , N + 1), lb 

left- side couch-bumper compression stroke, in. 

right-side couch-bumper compression stroke, in. 

strut compression stroke of honeycomb SHOCK n 
(n = Ngg + 2, . . . , N + 1 ) at the start of a computer 
run, in. » 

left-side couch-bumper compression stroke at the start 
of a computer run, in. 
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SEVC3P 


SEVT3 

n 

SHOCK 

n 


ST1 

n 

ST2 

n 


right-side couch-bumper compression stroke at the 
start of a computer run, in. 

strut tension stroke of honeycomb SHOCK (n = N oc + 2, 

n bo 

. . . , N + 1) at the start of a computer run, in. 

shock strut connected to points and 

P 2>n (n = 2, ..., N + 1) 

first constant load tension level of honeycomb or cyclic- 

deformation SHOCK (n = N co + 2, . . . , N + 1), lb 

n bb 

second constant load tension level of honeycomb 
SHOCK n (n = N gs + 2, . . . , N + 1), lb 


TF x,n> TF y,n’ TF z,n 


TG x,n’ TG y,n’ TG z,n 


t 


t 


n 


u", v", w" 
n’ n’ n 



components along the i n ~, j and k^-axes, respec- 
tively, of the total force acting on body n (n = 1, 2), lb 

components about the i’ -, j' -, and k' -axes, respec- 

n n n 

tively, of the total torque acting through c.g. 

(n = 1, 2), in-lb n 

time, sec 

thickness of the stainless- steel face sheet on one side of 
the heat shield at point S^ n (n = 1, 2, . . . , NSK) and 

point S, D (n = NSK + lj ..., NSK + NBC) 
i,ti, n 

components of the translational velocity vector of 
c.g. along the i -, j and k - axes (n = 1, 2), 

respectively, in/sec 

initial velocity-vector component perpendicular to the 
XZ plane, ft/sec 


V 

S,l,l 


velocity component of point 
in/sec 



in the XZ plane, 


Vrp initial velocity-vector component parallel to the XZ 

plane, ft/sec 

VC n velocity component of SHOCK n (n = 2, 3, . . . , N + 1) 

along the shock center line, in/sec 


11 



X, Y,Z 

X AR’ Y AR’ Z AR 


X , ,Y . ,Z 1 
p, l,n’ p, l,n’ p, l,n 


X p, 1 +L’ X p, 1-L 


orthogonal Apollo reference- system axes 

components of the relative- displacement vector from 
c.g. i to AR q along the i^-, j^-, andk^-axes, 

respectively, in. 

components (parallel to the i^-, j^-, and k^-axes) of 

the relative-displacement vector from point n to 

point P„ (n = 1, 2, . . N + 1), respectively, in. 
n 

components of the relative- displacement vector from 
c. g. 1 to point P. (n = 1, 2, . . . , N + 1) along the 

1 1 y n 

il - , jj-, and k^-axes, respectively, in. 

components of the relative-displacement vectors from 
c.g. j to the right-side and left-side couch-bumper 

bearing plates, respectively, along the i^-axis, in. 


X p, 2, n’ Y p, 2, n’ Z p, 2, n 


components of the relative-displacement vector from 
c. g. 2 to point P 2 n (n = 1, 2, . . . , N + 1) along the 

i 2" > ^2 - ’ and k 2 _axes > respectively, in. 


X p, 2+L’ Y p, 2+L’ Z p, 2+L 


X p, 2-L’ Y p,2-L’ Z p, 2-L 


components of the relative-displacement vector from 
c.g. 2 to point P 2+L along the ig-, j 2 "> and kg -axes, 

respectively, in. 

components of the relative-displacement vector from 
c.g. g to point P 2 _ L along the ig-, jg-, and kg- axes, 

respectively, in. 


X 


RC 


relative- displacement vector from AR q to point RC 
along the X-axis, in. 


X S, 1, n’ Y S, 1 , n’ Z S, 1, n 


components of the relative-displacement vector from 
AR to point Sj n parallel to the i^-, j^-, and 

kj-axes ( in the body 1 axis system) (n = 1, 2, . . . , 

NSK), respectively, in. 


X S, l,RSl,n’ Y S,l,RSl,n’ 
Z S, 1, RSI, n 


components parallel to the i^-, j^-, and k^-axes (in the 

body 1 axis system) of the relative-displacement 

vector from AR to point S i T3Q1 _ (n = 1, 2, ..., 

O l y Ho 1 j n 

24), respectively, in. 


12 


X S, 1, RS2, n’ Y S, 1, RS2, n’ 
Z S, 1, RS2, n 


X S, 1, RS3, n’ Y S, 1, RS3, n’ 
Z S, 1, RS3, n 


XR 


components (in the body 1 axis system) of the relative- 
displacement vector from AR o to point 

parallel to the i^-, j^-, and k^-axes (n = 1, 2, . . . , 

24), respectively, in. 

components (in the body 1 axis system) of the relative- 
displacement vector from AR q to point 

parallel to the i^-, j^-, and k^-axes (n = 1, 2, . . . , 24), 

respectively, in. 

relative- displacement vector from c. g. j to the edge of 
the CM along the jj-axis, in. 


X, Y, Z 


inertially fixed orthogonal axes or vectors directed along 
the X-, Y-, and Z-axes 



components of the c. g. displacement vector along the 
X-, ¥-, and Z-axes, respectively, in. 


X S,1,1’ Y S,1,1’ Z S,1,1 
Y p, 1+L’ Z p, 1+L 


Y P > 1-L’ Z p, 1-L 


YHSM 

YR1M 

YR2M 

YR3M 


components of the inertial displacement vector of 
point in. 

components of the relative- displacement vector from 
c. g. g to the point of application of ?2 +l on 

right-side couch-bumper bearing plate along the 
jj- and kj- axes, respectively, in. 

components of the relative-displacement vector from 
c. g. j to the point of application of P 2 _ L on the 

left- side couch-bumper bearing plate along the 
j 1 - and kj -axes, respectively, in. 

maximum ground penetration of the heat shield, in. 

maximum ground penetration of edge ring 1, in. 

maximum ground penetration of edge ring 2, in. 

maximum ground penetration of edge ring 3, in. 

functions defined by equations (23), (24), and (25), 
respectively (n = 1, 2, . . . , N + 1) 


0 


vehicle stability angle, deg 
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m 

W 

m 


6 


2, n 


6 

e, n 


6 

n 


v 

$ 


<t> 


n 


ip,e,<P 


an element of [ r] 

matrix defined by equation (1) 

orthogonal transformation matrix for transforming vec- 
tor components from the inertially fixed axis system 
to the arbitrarily oriented body n axis system 
(n = 1, 2) 

orthogonal transformation matrix for transforming vec- 
tor components from the arbitrarily oriented body 1 
axes to the arbitrarily oriented body 2 axes 

deflection of point R g^ n along a normal to the skin 

at point R gj n (n = 1, 2, . . . , 24) while moving 

from the current depth of penetration of the rigid 
structure to the ground- structure equilibrium posi- 
tion, in. 

deflection of point Sj Rgl along a normal to the skin 

at point R g^ n (n = 1, 2, . . . , 24) while moving 

from the current depth of penetration of the rigid 
structure to the unloaded ground line, in. 

structural deflection at point normal to a 

Kul, n 

tangent plane at point Sj Rgl n (n = 1, 2, . . . , 24) 

when the ground and the structure are in equilibrium, 
in. 

structural deflection at point Sj Rgl normal to a 
tangent plane at point Rgl n (n ’= 1, 2, . . . , 24), 

Poisson ratio for the heat- shield facing material 

angle, positive in the clockwise direction, that V 

= T 

makes with the negative Z-axis, deg 

angle from the 0° reference line to the radial line 
(of points) n (n = 1, 2, . . . , NOTHT) on the heat 
shield, deg 
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general Euler angles defining the angular orientation of 
the arbitrarily oriented body-fixed axis systems with 
respect to some other set of orthogonal axes, deg 


\b , e ,<P 

Y n’ n’ 




1T . fi . T . 1 T 

x, 1L’ y, 1L’ z, 1L 


n , n , n 

x, n’ y, n’ z, n 


O' , 

x, n ! 





z, n 


Euler angles defining the angular orientation of the 
arbitrarily oriented body-fixed axes i n> j n , and 

k n (n = 1, 2) with respect to the inertially fixed 

axes X, Y, and Z, deg 

Euler angles defining the angular orientation of the 
arbitrarily oriented body-fixed axes i jg, and k ^ 

with respect to the arbitrarily oriented body-fixed 
axes ij, jj, and k^, deg 

functions defined by equation (19) 

body n angular-velocity components about the i^-, 
j n -, and k n - axes (n = 1, 2), respectively, deg/sec 

body n angular-velocity components about the i^-, 
j^-, andk^-axes (n = 1, 2), respectively, deg/sec 


Subscripts: 

proj 

RTS 

V 

Operators: 

C) 

(") 

[]’ 


indicates assumption that AC(1) is a square area 
followed by proj ection of AC (1 ) perpendicular to 
the vector V g j j 

vector components directed from RC to point S^ ^ 
values associated with point S^ ^ 


differentiation with respect to t 

2 

differentiation with respect to t 
matrix transpose 


ANALYSIS 


This report is a result of the need for a method of determining the dynamic re- 
sponse of a falling body when it impacts a soil surface. The mathematical analysis 


15 


presented in this report is general in scope and is applicable to a large class of 
dynamic-response problems which involve the nonlinear motion of two rigid bodies 
connected by deformable links and moving in free space, in a gravity field, or with 
a soil surface (subsequent to impact of one of the bodies with the soil surface and with 
one of the bodies in contact with the soil surface). The digital-computer program ap- 
plies this analysis to the specific problem of determining the dynamic response of the 
Apollo CM to earth impact. The computer program provides for connection of as 
many as 19 deformable links between the two bodies and for monitoring of as many as 
322 impact points on one of the bodies. The impact points are presently divided into 
200 points on the CM heat shield, 50 points on the CM bolt circle (which attaches the 
heat shield to the CM inner structure), and 72 points on the outer edge of the CM. 
Although only the edge rings are considered to be deformable in this report, few 
computer-program changes would be required for application of the program to a 
deformable surface on the entire impacting body. 


Axis Systems and General Vehicle Orientation 

The general body orientation is shown in figure 1, and the specific body orienta- 
tion selected for the sample CM problem is shown in figure 2. In the analysis which 
follows, body 1 will represent a CM structure without the crew couch, and body 2 will 
represent the crew couch. 

Each body has two fixed orthogonal axis systems originating at its center of 
gravity. One of the axis systems within each body must be coincident with the body 
principal axes. The equations describing the body rotational motion are written with 
respect to this axis system and thus reduce to Euler equations. The angular orienta- 
tion of the other axis system within each body is arbitrary but usually coincident with 
any existing geometrically symmetric axes. This arbitrarily oriented system is lo- 
cated in an inertial frame by the set of Euler angles defined in figure 3. Equations 
that describe the translational motion of a given body are always written with respect 
to the arbitrarily oriented axis system within the body. The two arbitrarily oriented 
systems (one in each body) are related to one another by a set of relative Euler angles 
which reduce to pitch, roll, and yaw for small angles (fig. 4). Within a given body, 
the two axis systems are related to each other by a set of direction cosines. 

The computer program requires several coordinate transformations. To sim- 
plify the description of many of these transformations, the following general matrix 
will be required. 



r u 

r !2 

r i3 


COS 9 COS Ip 


cos e sin \p 

-sin e 

m = 

r 21 

r 22 

CO 

= 

-sin ip cos <p + 
sin (p sin e cos 


cos <p cos <// + 
sin <p sin e sin ip 

sin (p cos e 


> 

r 32 

r 23 


sin (p sin cp + 
cos (p sin e cos 

* 

-sin (p cos ip + 
cos <p sin e sin ip 

cos (p cos 9 


( 1 ) 
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The principal body axes are related to the arbitrarily oriented axes in the same 
body by 


i 


i* 

n 


n 

i 

= ft 1 , 

j 1 

J n 

n 

L n J 

k 


k’ 

n 

i 

nj 


where n = 1, 2; and [£ ] is given by 



J n 


n 


• r 

n 

i • 
n 

J n 

V 

k’ 

n 

• T f 

n 

V 

J k 

V 

k’ 

n 

• i T 
n 

k • 
n 


k ■ 
n 

k' 

n 


The inertial axes are related to the arbitrarily oriented body axes by 


i \ 

i 


n 


( 2 ) 


(3) 


(4) 


where n - 1, 2; and jrj is given by equation (1) after the following substitutions are 

made: [T] = [Tj , T mp = n , if/ = e = and 0 = 0 n where m = 1, 2, 3 

and p = 1, 2, 3. The arbitrarily oriented body axes of body 1 are related to the arbi- 
trarily oriented body axes of body 2 by 


*2 


/ 

*i 

j 2 

' = m • 

j i 

k 2, 


k T 
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where [ r ] 

[r] -[r], 

p = 1,2,3. 


is given by equation (1) after the following substitutions are made: 

T = T , 0 = 0 ', xf/ = ~ty, and <p = $ where m = 1, 2, 3 and 
mp mp 


Equations of Motion 

The equations used in the computer program place no restrictions (within the 
limitations imposed by physical interference) on either angular or translational dis- 
placement of the two bodies relative to an inertial frame or to each other. The bodies 
may also have completely general geometric and inertial properties. 

The equations of rotational motion used in the computer program are 


h' , n^x, n " °y , n°z, nft* , n ' V , nj TG x, n 


V , n^y , n " °x, n^z, nrk' , n " I i’ , n) TG y , n 


*k' , n^z, n " ^x, n^y, nri’ , n ” V , n) = TG z, n 


( 6 ) 

(7) 

( 8 ) 


where n = 1, 2. Integration of these equations yields £2^ n » fi y ?n ’ and fl z, n’ Body 
n angular- velocity components about the arbitrarily oriented body axes can be obtained 
from 


/ \ 
a 


^£2’ 

x, n 


x, n 

£2 

>= He I < 

£2' 

y>n 

L n J 

y,n 

n 


£2’ 

z, n 

> 


z, n 

, j 


where n = 1, 2. 
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COS 0 


19 


where 


IT 

x, 1L 


* 

n y, il 

•= [r]< 

y> i 

J2 * j 

z, 1L 

v. 7 ^ 

i 

£2 - 
z, 1 

V ? / 


( 19 ) 


Integration of equations (16), (17), and (18) yields the relative Euler angles. 

Within the arbitrarily oriented body 1 axis system, components of the time rate 
of change of Pj n P 2 n are given by 


X n = Y n°z, 1 - VV, 1 “ U i’ - Z P, 1, n^y, 1 + Y P, 1, n l4 z, 1 
+ r il a l,n + r 21 a 2,n + r 31 a 3,n 


( 20 ) 


Y n = Z n fi x, 1 ' X A, 1 " V i ’ - X p, 1, n°z, 1 + Z p, 1, A, 1 
+ r i2° 1, n + r 22 a 2,n + r 32 a 3,n 

Z n = W, 1 ' Y n fi x, 1 “ W 1 ’ ' “ Y p, 1, A, 1 + X p, 1, n°y, 1 
+ r i3 Q 1, n + r 23 a 2,n + r 33 a 3,n 


( 21 ) 


( 22 ) 


where n = 1, 2, . 


N + 1 and 


a l,n = U 2’ +Z p,2,n fi y,2- Y p,2,n fi z,2 

(23) 

a 2,n = V 2’ +X p,2,n°z,2 ' Z p,2,n°x,2 

(24) 

a 3, n = W 2* +Y p,2,n n x,2 ~ X p,2,n fi y,2 

(25) 


Integration of equations (20), (21), and (22) yields the components of the relative- 
displacement vector from point P-^ n to point Pg^ n - 
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Force and Moment Equations 

As stated previously, body 1 represents a CM structure without its crew couch. 
The forces acting on body 1 are the stroking forces of the interconnecting shock struts, 
ground- impact forces, and gravity forces. 

The forces acting on body 2 (the crew couch) are caused by shock- strut stroking 
and gravity. The shock-strut- stroking forces are considered first. The three kinds 
of shock struts that may be simulated by the computer program are spring-damper 
shock struts, honeycomb shock struts, and cyclic-deformation shock struts. The 
spring force developed in the spring-damper shock struts is given by 


FK 

n 


CK 


n' 


P P 
*1, n2, n 



(26) 


where n = 2, ..., N + l. Energy absorption per cycle caused by damping is expressed 
by the following nonviscous-fluid damping term 


FD n = CD n (v Cn ) (|VC n |) 


(27) 


where n = 2, . . . , N + l; and VC n is given by 


VC n 


XX +YY +ZZ 
n n n n n n 


P 1 n P 9 n 

1,11 


(28) 


where n = 2, . . . , N + 1; and FD and FK are directed along SHOCK with signs 
7 7 7 n n n 

determined by the arbitrary axes of body 1. Equations (26), (27), and (28) apply in- 
directly to the other two types of shock struts, as explained in the following paragraph. 


Assume that FK n represents the force generated by the crushing of honeycomb 
in the shock strut. Such a force may be determined numerically by the computer pro- 


gram, which computes 


P P 
*1, n2, n 


and uses this value (together with the value saved 


from the last integration step) to locate the corresponding honeycomb force in a table 
generated by the computer from a curve of the type shown in figure 5. Coulomb damp- 
ing in the strut is represented by FD n . This type of damping results in a constant 

friction force that acts on the strut (whenever it is in motion) in a direction opposite to 

the instantaneous strut velocity. The computer program is capable of handling four 

discrete values of FD for each strut. These values depend on the direction of the 

n 

stroking and on whether the stroking is taking place in the head end of the cylinder. A 
table in the computer program may be used at any time to obtain FD n as a function of 
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instantaneous strut length and velocity. A visual representation of the combined action 
of honeycomb crushing and friction force is shown in figure 6. 


If the user requires a simulation of cyclic-deformation stroking, FK repre- 

n 

sents the force generated when the strut material is deformed by motion of one end of 
the strut relative to the other strut. The force FK n is determined numerically by the 

and 


computer program. The computer determines the current value of 


P l,n P 2,n 


uses the value (together with the value saved from the last integration step) to locate 
the correct deformation force in a table generated by the computer from a curve of the 
type shown in figure V. The structural damping in the strut FD n is expressed by the 
following damping term 


FD 

n 



(29) 


where n = 2, . . . , N + 1. The components of force caused by SHOCK n acting on 

body 1 at point P, are given by 
i, n 


F ,C = ( FK 

x, 1 n V n 

F .C = (FK 

y, 1 n V n 

F ,C = ( FK 

z, 1 n V n 





n 


p i „ P 9 „ 

1 j n A 7 x\ 


n 


P l, n P 2, n 


n 


P l, n P 2, n 


(30) 


(31) 


(32) 


where n = 2, . . . , N + 1. 

The shock force acting on body 2 will be equal and opposite to the shock force on 
body 1. The components of force (in the arbitrarily oriented body 2 axis system) caused 
by SHOCK acting on body 2 at point P 0 are given by 

n ci , n 


' F x,2 C „ 


F ,C 
x, 1 n 

F y, 2 C „ 

>=-[ p ]< 

F ,C 
y, 1 n 

F „C 
z, 2 nj 


F ,C 
z, 1 n 


( 33 ) 


22 



where n - 2, . . . , N + 1. The components of torque (in the arbitrarily oriented body 1 
axis system), acting through c. g. . and caused by SHOCK acting at point P* , 
are given by 1 n & * l,n’ 


where n = 2, . . . , 

i 

i 


where n = 2, . . . , 


G 

1, n 

= Y . | 

fF ,C ) 

- z , 

x, 

p, l,n< 

K z, 1 n/ 

p, 1, n 

G 

1, n 

= 2,1 

,c 1 

- X . 

y» 

p, 1, m 

v x, 1 n) 

p, 1, n 

G 

1, n 

= X , ( 

'f ,c ) 

- Y „ 

z> 

p, 1, n' 

\ y,l n ) 

p, 1, n 


N + 1. Similarly, for body 2 

G x, 2, n = Y p, 2, n( F z, 2 C n) " Z p, 2, n' 
G y, 2, n = Z p, 2, n( F x, 2 C n) ' X p, 2, n< 
G z, 2, n “ X p, 2, n( F y, 2 C n) " Y p, 2, n( 


( F y, l C n) 
( F z, l C n) 
( F x, l C n) 

( F Y,2 C n) 
( F z,2 C n) 
v F x, 2 C n) 


N + 1. 


(34) 

(35) 

(36) 

(37) 

(38) 

(39) 


The computer program provides for two honeycomb couch bumpers, which are 
constrained to deform in compression only in a direction parallel to the ig-axis. The 

tips of the bumpers are located as shown in figure 8. To determine the bumper forces 
and torque acting on the system at any given time step, the computer program first 
establishes which, if any, bumper tip is penetrating a bearing plate. If, for example, 
interference exists between point Pg ^ the right-side bearing plate, the computer 

program will stroke the bumper parallel to the ig-axis until P 2+L ties on the bearing 

plate. The force in the bumper acting on body 2 F_. . „ can then be located in a table 

D, 1 , Z 

generated by the computer from a curve of the type shown in figure 9. 


Note that F 0 ^ 2 and F B k 2 both ec l ual zero and that f b i 2 is ne S ative for 
right-bumper contact. The point of application of point P 2+L on the right bearing 
plate (X p> Yp i +L , Zp is computed in the arbitrarily oriented body 1 axis 


23 


system. The components of force in the same axis system that are due to the couch 
bumper acting on body 1 are given by 


B,i, 1 


f 

F 

B, i, 2 

F B,j, 1 

'= -IT]’ < 

0 

F B, k, y 

i 

0 

l > 


(40) 


The components of torque (in the arbitrarily oriented body 2 axis system), acting through 
c. g. g and caused by the couch bumper acting at point P 2+L’ are given by 


°B, i, 2 = 0 

(41) 

°B,j,2 ' Z p, 2 +l( F B, i, 2) 

(42) 

3 B, k, 2 = " Y p, 2 +l( F B, i, 2) 

(43) 


The components of torque (in the arbitrarily oriented body 1 axis system), acting through 
c. g. j and caused by the couch bumper acting at point P2+1/ are given by 


B, i, 1 = Y p, 1 +l( F B, k, l) 

" Z P , i+l( f B, j, 1) 

(44) 

B,j, 1 " Z p, 1 +l( F B, i, l) 

" X p, 1 +l( F B, k, l) 

(45) 

B,k, l = X p, 1 +l( F B, j, l) 

1 " Y p, 1 +l( F B, i, l) 

(46) 


To compute the ground-impact forces acting on body 1, the CM structure is divided 
into two distinct load-carrying areas, the heat shield and the outer edge (or toe) of the 
structure, which extends beyond the heat shield. The heat shield is a spherical surface 
with a radius originating at RC and will be considered first. 

Several points are located on the heat shield in polar coordinates. The points are 
numbered clockwise and outward, beginning at the intersection line <£g and ring 1 

(fig. 10). The outermost ring of points is located at the edge of the heat shield. A ring 
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of points must also be located at the bolt circle, where the heat shield is mounted to 
the pressure shell. These bolt- circle points must be assigned higher numbers than any 
other points on the heat shield. All the information required to locate these points is 
loaded into the computer and stored in the computer memory. To compute soil loads 
on the skin, a portion of the heat- shield area is assigned to each point, except for 
points on the bolt circle. Because the heat shield is considered simply to be supported 
at the bolt circle, loads there do not contribute to heat- shield bending. 

Figure 10 indicates the manner in which the areas are assigned to the points. 
(Radii and angles bounding the areas are selected midway between adjacent heat-shield 
points, excluding the bolt-circle points. ) At a given instant, the computer program 

will determine which heat-shield points are below the XZ (inertial) plane, that is, 
below the undeformed soil surface. Assume, for example, that point Sj j is below 

the XZ plane and has a soil force acting on it (fig. 11). The point is located in the 
inertial system by coordinates X g 1 r ¥ g j v and Z g 1 y The coordinate 
Y g i i gives the current depth of penetration into the soil. The computer also has 
available in memory the previous depth of penetration of point S 1 „ as well as the 
permanent soil deformation, if any, associated with the point. The inertial- velocity 
components ^X g j j, 1 1’ anc * 1 l) P 0 ^ j are computed from the 
translational and rotational velocities of body 1. The resultant horizontal-velocity 
component Vg j j (parallel to the XZ plane) is then computed. The soil forces act- 
ing at point Sj j are broken down into horizontal and vertical components, both of 

which consist of static-force and dynamic-force terms. The equations used are ob- 
tained from reference 1. The manner in which both static and dynamic vertical soil 
forces vary with penetration depth and velocity is indicated in figure 12. 

The equation for the static vertical force at point S 1 1 (assuming a loading con- 
dition) is l, l - ~ 


FVS(1) = (0. O9)(GC0NST)[AC(1)] [PENETRATION(l)] GPOWER (47) 


The equation for the dynamic vertical force at point S 1 prior to soil- wedge forma- 
tion is 1,1 


FVD(l) = (0. 09)(AKNT)[PENETRATION(1)] [AC(l)] (48) 


After soil-wedge formation, this force becomes 


FVD(l) = (0. 5)(DENSTY)[AC(1 )](AKC)(y s j ^ (49) 
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The total vertical soil force at point S ^ ^ is given by 

FVT(l) = FVS(l) + FVD(l) (50) 


For the computation of the horizontal component of soil force at point ^ the area 

AC(1) is assumed to be square and projected perpendicular to the vector V g x v Thi 

projected area is then used in the equations for the horizontal soil force. 

The equation for the static horizontal force at point ^ is 

FHS(l) = CGO(DENSTY)[PENETRATION(l)]AC(l) proj (tan FA) (51) 


The equation for the dynamic horizontal force at point Sj ^ is 


FHD(l) = CDO(DENSTY) fAC(l) proj 



(52) 


The total horizontal soil force at point ^ consists of the drag forces given previ- 
ously and a friction-force term that follows. 


FD(1) = FHS(l) + FHD(l) + (AMU)[ FVT(l)] (53) 


The friction force is resolved into components FD(1)^ and FD(1)^ along the X 

and Z inertial axes, respectively. In the arbitrarily oriented body 1 axis system, the 
components of soil force acting at point n are given by 


F V,n' 


FD(n)= 

F V,n 

= [ r i] 

FVT(n) 

, FS k, 1, n 

I 

FD(n)= 


(54) 


where n = 1, 2, . . . , NSK. 
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The components of torque (in the arbitrarily oriented body 1 axis system), acting 

through c. g. j and caused by the soil forces acting at point S. , are given by 

i, n 


[gs. 1 1 

i, 1, n 


/ \ 

FS. , 
l, 1, n 

GS. . 
h l,n 

= R c x 
S, n 

FS. , 
h l,n 

GS. . 
k, 1, nj 


FS. . 
k, l,nj 


(55) 


where n = 1, 2, . . . , NSK. 

The geometry is shown in figure 13. The three edge rings are simulated by coni- 
cal frustums with arbitrarily selected heights. The rings are located relative to the 
X-axis by imaginary cones with slant heights that are perpendicular to the edge-ring 
slant heights and that intersect them at their midpoints. All three rings have 24 points, 
numbered identically. The points comprising each ring are equally spaced and have 
equal areas. The ring-point numbering system is related to the heat- shield-point num- 
bering system, as indicated in figure 13. 

The data required to locate the edge- ring points and the areas assigned to the 
points are loaded into the computer and stored in the computer memory. Two options 
are available for loading the edge-ring data. For the first option, the edge rings are 
considered to be rigid and are handled in the manner prescribed for the heat shield. 

The second option permits edge-ring deformation as well as ground deformation. A 
load-stroke curve of the type shown in figure 14 is assigned to each ring. At each time 
step, an iterative procedure in the computer program determines the equilibrium posi- 
tion between the ground and each edge point in contact with the ground. A curve of the 
type shown in figure 15 is constructed by the computer program for each point in con- 
tact with the ground. By assuming the structure to be rigid, a value y of FSN(n) 
may be obtained from the dot product of FSR(n) and a unit vector normal to the edge 
ring at R g^ The value 5^ ma y then be determined from the current depth 

of penetration of point Sj R g^ and the previous ground- structure equilibrium posi- 
tion saved in the computer memory from the last integration step. The value x of 

FSN(n) (corresponding to 6 ) may now be obtained from the soil-force equations, if 

i, n 

the velocity of point S. D<31 at a deflection of 6. is assumed to be the same as 

i, noi, n l, n 

the velocity at the undeflected position (because 6. «|R I). Given the value x 

ij n o, n 

of FVS(n), deflection 6 ^ may be derived from the slope BOFF of the unloading 

curve, because any further structural deformation from the previous equilibrium posi- 
tion will result in unloading of the soil force. 

The next step is to superimpose the load-stroke curve (fig. 14) for the edge-ring 
point onto the FSN(n) versus 6 n curve. The intersection point of the two curves, de- 
termined numerically by the computer, represents the structural deflection 6 

e, n 
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required for the ground and the structure to be in equilibrium. The computer provides 
for the intersection of either the loading ramp or the constant level (FR1) of the struc- 
ture curve with either of the two sections of the FSN(n) versus 6 n curve. The case 

of an undeformed structure falling between the unloaded ground line and the previous 
equilibrium position is handled similarly. 

Whether the edge rings are considered to be rigid or flexible, the result of the 
analysis will be force and moment equations similar to equation (54). In the arbitrarily 
oriented body 1 axis system, the components of torque acting through c. g. l and caused 
by the couch-bumper, shock-strut, and soil forces are given by 


N+l 

i*E 

n=2 


G + G . - + 
x, l,n B, i ? 1 


NSK 

E 

n=l 


GS 


i, 1, n 


(56) 


c.g. 


N+l 

E 

n=2 


l,n + G B,j,l + 


NSK 

E 

n=l 


GS 


h 1> n 


(57) 


c.g. 


Z, 


1 


N+l 

TX l,n + G B,k, 1 
n=2 


NSK 


+ E GS k. i. ■> 

n=l 


(58) 


respectively. Similarly, for body 2 

N+l 

C - g 'x,2 = E G *,2,n + G B,i,2 

n=2 


(59) 


c.g. 


y,2 


N+l 

E 

n=2 


G y,2,n + G B,j,2 


(60) 


c.g. 


z, 2 


N+l 

E 

n=2 


G z,2,n + G B, k, 2 


(61) 
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The components of the total torque acting through c. g. may now be transformed to 
the principal axes as follows. n 


TG 
x, n 


/ " 

c. g. 

& x,n 

TG 

y,n 

'= t‘n]' 

c. g. 

* y,n 

TG 

z,nj 


c.g. 

z , nj 


(62) 


where n = 1, 2. The components of the total force acting on body 2 along the arbitrar- 
ily oriented body axes are given by 


N+l 


TF x, 2 F x, 2 C n + F B, i, 2 + FG i, 2 

n=2 


(63) 


TF 


y,2 


N+l 

Z F : 

n=2 


v 9 C + FG. 
y, 2 n j, 2 


(64) 



N+l 


S F z,2 C n + FG k,2 
n=2 


(65) 


The components of the gravity force acting on body n along the arbitrarily oriented 
body axes are given by 


(fg. ) 



i,n 


FG i,n 

’ fl' 

s B 

II 

°Y 

FG k,n 


a 

Nil 


( 66 ) 
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where n = 1, 2. The components of the total force acting on body 1 along the arbitrar- 
ily oriented body axes may now be obtained from 



N+l 

NSK 


X 

H-k 

11 

E F x, l C n 

_n=2 

+ F„ . , + FS. + FG. 1 

B, i, 1 i, 1, n i, 1 

n=l 

(67) 


~N+1 

NSK 


II 

£ 

H 

23 F y> lCn 

_n=2 

+ F„ . , + > FS. , +FG. . 
n=l 

(68) 


”N+1 1 

NSK 


N 

h-i 

II 

IXl C n 

n=2 

+ F B, k, 1 + 23 FSk > !» n + F ° k , 1 

n=l 

(69) 


CONCLUDING REMARKS 


This report presents the six-degree-of-freedom rigid-body equations of motion 
for each of two bodies connected by shock struts and subjected to ground impact. A 
basic digital- computer program was presented for determining the dynamic response 
of the complete configuration subjected to gravity, strut-deformation, and soil- impact 
forces. The digital- computer program was written in subroutine form to facilitate the 
addition of equations representing other hardware and impact surfaces. 
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Point AR 0 is on the outer surface of the heat shield and on the CM axis 
of symmetry. 

The ii". ji", axes are parallel to the Y-,X-,Z- axes, respectively. 

The i r ,ji-,k axes are parallel to the '\ 2 ~,) 2 ~^ 2 ~ axes » res P ec ^ ve ly* 

(a) Axis orientation selected for current CM studies. 

Figure 2. - Axis orientation selected for current CM studies with approximate 

crew-couch-strut locations. 
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(b) Crew -couch struts. 
Figure 2. - Concluded. 





Compressive EL3C EL2C 
stroke n n 


Honeycomb force 


EL1C EL1T EL2T EL3T Ten; 
n n n n . 

stro 


— ] [—Tensile stroke (positive) 



Compressive stroke (negative)-*! f— 

Figure 5. - Couch honeycomb-shock -strut characteristics. 


Total shock force 


ST1 + FFPSP 
n n 


/ ,1 FFPSP (loss of outstroke 
/ ' n friction) 

/ "} FFPSN (gain of instroke 
! L n friction) 


0 Initial position of unstroked strut 

1 End of first tensile stroke 

2 Return stroke was assumed continuous back to 

equilibrium position of shock strut, at which 
time a second tensile stroke began (dotted line) 

Figure 6. - Mechanism of friction and hysteresis in 
the honeycomb shock struts (tensile stroke used for 
example purposes). 






0 Initial position of unstroked strut 

1 End of first tensile stroke 

2 Returned stroke was assumed continuous back to 

point 2, at which time a second tensile stroke 
began (dotted line) and continued past point 1 


Figure 7. - Cyclic -deformation -shock -strut characteristics (tensile 
stroke used for example purposes). 







-< II 
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Dynamic vertical force 



(a) Static vertical force as a function of penetration depth. 



(b) Dynamic vertical force as a function of penetration depth. 
Figure 12.- Vertical soil-force characteristics. 
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Current depth of point 
S l, RSI, n, 

assuming no structural 
deformation 


FSR(n) 


FSN(n) 


{^Normal to the skin at point S 

l — Unloaded ground, 
line 

Permanent soil 
deformation 


1, RSI, n 



/ / / Original undeformed 
soil surface 

Equilibrium position at 
last time step 

1, RSI, n 

(a) Physical representation of equilibrium. 



(b) Mathematical representation of equilibrium. 

Figure 15. - Method of determining ground -structure equilibrium for a 

point on edge ring 1. 
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APPENDIX A 

FORTRAN V PROGRAM FOR PREDICTING THE DYNAMIC RESPONSE 
OF THE APOLLO COMMAND MODULE TO EARTH IMPACT 

EXPLANATION 


As presented in this appendix, portions of the FORTRAN V program output re- 
quire a high-speed microfilm recorder. If the recording equipment is unavailable, 
affected portions of the output may be bypassed by punching the appropriate number 
in position 7 on the first data card of each set. The computer program is capable of 
simulating impact cases involving certain CM hardware not used in the author’s cor- 
relation study. Body 2, represented by a Weber couch, becomes a unitized couch 
when line 51 of subroutine INPUT is changed as indicated in line 50. To substitute 
honeycomb or linear springs for the arbitrarily specified cyclic-deformation shock 
struts, simply revise subroutine CABFOR per lines 74, 114, and 120. 
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COMPUTER PROGRAM LISTING 


b E G m A 1 N - ( • b , * C ) 

6 bt G SRCl-SRC2“SRC3-SRC4-SRC5«.SRC6..SRc7*5KC8-SRC9-5RClQ-bKCl 1~» 
S*L12-SkC1J-SRC14-SKl1S-SRC16-5RC17-SR(.1**-SRCi9 

C b t G 5 K F Q 


MAIN 


Common VARIANT . K F b T *L 

DIMENSION VAK499V9i t NXEGEKfS0>.DYuXU00) 

LUUl VALENCE ( VAR i 30 1 ) , NT EGER ( 1 I ) • ( nTEGER < 32 ) ,nPP ) . I VaR U U i) tDYUX (1> 
1 ) 

C ZERO CORF AJ INITIAL LOADING 
DO 3 0 J * l » 9 9 ? 9 
JO V A R ( j ) = 0*0 

C SET DFRIVATIVE Or INDEPENDENT V A R 1 A b L E «. RT ITSELF EGUAt TO Out 
l»YDX(J 1*1*0 

20 CALL KK 

iO If- (NTtGER(25) 120.20. 21 

2 1 CALL FlLrl(NPP) 

GO TO 20 

END 


SRC1 


SUBKUU TINE Rk 

DIMENSION Y(lUO)»DYDX4lOa)Tu(|OU).D<lQP),P(9bH9)|NTEGt.HlbO) 

1 ,VAR(V999) ,T{ 1000) 

COMMON VaR* kNIi K F S T 

LOMMON/ADM/f.NN.TMESh.KAl * a 1 .a2»a3.A4,aS.a 7 » M A P » b S E • Y P # K P K N T 

EQUIVALENCE ( V A K ( 1 ) • Y ( 1 ))i<VAR<lOl)iOYDX(l))»iVAK(2ol) . Q < 
1 l)),lvAKlJOd*NTENERU))i<VAR4 3sl)«DU)).(VAR(Hbl)*p(l))t 

2(wTEGER(6) *N) i { n T E G E R ( 3 2 ) ih;PP ) 

C LOAD INPUT DATA InTQ COMPUTER 

CALL INPUT 

AS*P ( 1 05 ) 

A 7 bP I 106 ) 

A l * P ( 2 3 ) 

A 2 = P ( 2 4 > 

A 3 e P ( 2 5 ) 

A4«P( 104) 

K A 1 *N T EGER ( 9 ) 

N P P * 0 
REvvInu 9 
R E »t 1 N U 11 
P ( 8 ) =-U* 00 GU 01 
NTEGER I 23 ) *0 
MM T * 0 

*fst=o 

p ( S96M ) *P ( 59 66 ) *0 • 6 
P(5965)*plb967)*0»6 
60 T M 1 5 H *P t 1 I 
N N * N - 1 

NTEGER (22 )*NW 
DO 30 J* l . NN 



Jo 

7n 

80 

UD 


30 

bOO 


bOS 

SU4 

I 1 0 

I Ju 
1*0 


T ( kJ I = y ( J ♦ i ) 

1 l N N ♦ 1 ) = Y t X ) 
l l A P « 1 

call n K A II 

CALL n 0 ft S A V 

call uurpur 

I F t Y ( 1 > -P ( 2 ) ) do * 330 .330 
continue; 

CALL k k A M 

call n 0 N s A V 
(a a TO 7 u 

R E T URN 
END 


SRC2 


SU^kouT iNt 1„PUT 

U l M t N b I 0 N Y b 2 K 1 o l 2 4) ,FVK10(24 I . Y H 2 K 2 u < 2 H ) , F V K 2 Q ( 2 4 ) ,rb2KJu^H) , 

X F V K 3 0 l 2 H ) 

DIMENSION Y < I 00 ) • « ( lot) ) ,P(Vb49i .NTtotRlbU )*V 

l A R { 9 9 9 9 ) , V b2b 1 0 l 2QC ) , F VO < 2n0 ) 

T , HTbPl40) l kSH(2U),AC^UuI. A c Rl i v ).ACrhTt4bii0LLL^U{/2) 
COMMON V a * 

LoUIvAlLNCl ( V A k ( i )if(l)) 9 (vAK{?U|li4UI) 

1 t ( W A H ( 3 i j i ) • ft T ^ £ K ( 1 ) ) . ( V A K l M b 1 ) ,P 1 1 ) ) 

«*•<;. INPAR ) i ( P < 3 1 b 8 t , Y rt 2S l u U > I . t p ( 29btt ) • f- V o ( i ) ) . Ip (60UO > 

H,ai,G),(P(3V6/) 1 M),(P1396‘I| i Ai(C) 

b • (p(JV70) t AC<l>>.(p(6sul>»rhTsP(l))»(p(6S<4l)»Kbrlin 

LwhIVaLLNCL { p ( 6 7 8 J ) » Y B 2 K 1 j ( 1 ) ) • (*- ■( 6 b b S ) « F V R 1 0 ( 1 ) ) • ( p ( 6 8 U 7 ) • 

1 V b2R20 ( 1 ) ) i ( p ( o 8 7 9 ) , F V R 2 0 r l ) > * l P < 6 6 3 l ) , y b 2 R 3 0 ( 1 ) J , 

2 ( P ( 6 V 0 3 ) , F V R 3 0 ( 1 ) ) , ( p ( 7 3 U > ) , o t L 1 1* 0 ( X ) ) 

RLAO CONTROL INTEGERS into problem 
RlAo lS,3UMNTtGER<J)iJ»1.9) 

FURMATi9Ib) 

A KITE ( 6 • b 0 0 ) ( N T E G E R ( j ) , j « | ,9) 

FORMAT { lHlVIbJ 

N T t G E K 124 )*NTLCjEK(6 ) 

r>(TEC 3 ER^)*3*NTEOEKtH}f25 + NTEGEK(il 

NTF^fcR(29)»NTj>;GtRI24)*l 

NTEOER<30)sNTEGLK(29)tI 

nTPGEK ( 2 1 ) *NTeGER l 4 ) ♦ 1 

NTEGEK(25I*NTtGLK(7J 

NTeGEk(26)=NTL&ER(6) 

REaIND 13 
00 bOH J * 2 9 , IJQ/ 
h L A 0 ( 13) 1 N 0 • P ( I NO) 
wKITEl6#S0b) 1 N D i P ( 1NU> 

F 0RMA1 ( I 6 ,E20,8 ) 

C 0 N T i n u e 
R E «h I N o 13 

check fur i no i v i on al floating point oata entry 
IF <NP) 3 8 0,380,110 
00 140 J * 1 , NP 

RE A j ( 5 , 1 30 > 1 • l M < I ) ) 

FORMA T l IStLtSiO) 

, UNITE (6|lb0) 1 , P ( I ) 

FORMA I i 1 6 , E 2 0 , 8 ) 


1 M C CONTINUE 

Ph l««P l U 2 ) *J. 0 I 7b 
THEA=(-P( JIS) )*U*0l7Sb 
bTtiEAsblNlTHEA) 

CThEA=COS< THEA) 

TThEA=STHEA/CTHEA 

XPRH s 69«15MTHEA 

C f-OR UNITIZED COUCH CHANGE 87,6k To BA. 35 
X0PKMsQ7,6b*TTHtA 
A0Nt=l2b,S+X0PRH)*STHEA 

X7aO=XDPRM/SThEA 

X T H K = l 2 0 . 1 + XPRM ) *5T HE A 

XFOUsAPKM/STrtfcA 

V T / = P { 1 l0>*C0b(PhlK)*fl2*~i) 

XDbRg 3 12.0*P(llU)*SlN(PHIR> 

A T R A = p ( 1 l 1 ) • ( - 1 2 • Q ) 

Z 3 0 • Q 1 7 4b 

CUTHsCOS ( P < 1 1 J ) *Z ) 

SITH C SIN(P( 1 1 J ) * Z ) 

COPS 3 COb (PU|5I«2I 
SlPSaSlN{P(llb)*Z) 

5lPri*blN(P 1IH)«2) 

COPHxCOS ( P ( 1 1 H ) *1 ) 

com i * uoph*s I ps 

COm2 3 COPh*COPS 

P( 1 10) 3 C0TH*c0Pb*AUbRW^C0T«*SlPS*xTKA-5lTH*VrZ 

P( | 1 1 l 3 <SlPH#*ITH»COPs-CUr1i )*xDBKu+(blPH* i lTH*slHb + COn2i*AT«A + 
l S1 PH*COTh*VTZ 

P(ll2i«(SlPS*SlPH + C0M2*SlT l>J )*XDBRw^(C0MUSiTH-SlP M *CuPb)*ATKA 
1 +CQPH*CojH* V TZ 
P( 1 ]9)»P( 1 10) 

P< 1 2 0 ) 3 P ( 111) 

P < 1 2 1 ) 3 P ( 1 1 2 ) 

P ( | 23 ) 3 P ( 11 S ) 

P ( 1 22 ) *P III 3 ) 

P< l 2 H ) *P ( lib) 

P(b99j) 3 S.UM20»l*XPRM)*CT*EA 
P<bV96)*5.0M2b*H+XDPKM)*CfHEA 
P(b99 / ) = XTwQ-XONE-Af OU + X THw 
•( U 0 CALL INAID 

WKlTE(**b01 ) 

SU1 FORMAT ( 1HU 

C ZERO THE W AnD SEt In Ic 

00 4 2 0 J 3 1 , N 

0 1 J ) 3 0 • 0 

S20 CONTINUE 

c *eT heat Shield skin point c o r* R d i n a t t s into Thli k aorkinu lucaTiuns (put in 

C bOuY l SYSTEM WITH ORIGIN a T c • 6 • l > 

DO 1 J 3 1 , NSK 

P<j+lSB2)sp<j*9b2)*P(V6S> 

P(j+l/a2)«P(j+ll82)*P(966) 

P(J-**1982) 3 P(J+IJ82)^P(967 ) 

1 CONTINUE 

c Set ring Skin point cOORuINaU-S INTO TheI* a 0 R K I N <j LOCATIONS (PUT IN 
C BODY 1 SYSTEM WITH ORIGIN a T C»G*1> 

00 bo J* 1 . 72 

P(j+6b63) 3 P ( J + 7 U l 4 ) + P (96b) 

P(j>663b) 3 P(jt7u86l^P(966) 

P(j+6707)*P(j+7l58)+p(967) 
so continue 

NPAR 3 NTEGER(S)-NTEGER(2S) 

IF(NPAR)3»3»<t 
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C Put HONEYCOMB shoo INITIAL ChNDITIOnS In THt-I* liUKMNv, LocaIIunS 
4 UO 2 J*1 ,NPAH 

P ( j ♦ 2 4 8 3 ) = p ( j t 2 4 2 3 I 
P ( J + 2SQ3 ) =P t J + 244 3 ) 

P(J+2B23)*P(J+2463I 
P ( J + 2&43 ) sP ( j + 2623 J 

2 continue; 

OU 5 J=1 , N P A K 

P<j + 2S43)*p(j + 22U3>/p(J + 21>»3) 

PlJ*2S63)=P<J+2z43>/P(J+2223) 

Plj + ?s63)*(plj + ^263)-plJ + 22a3n/Ip(j + 22 d 3>*P(U + 23u3>) 
P<J+2803>*lp<j+2323)-p<j+2?43> >/lp(J + 234'i)«p(j*2J63> * 
b continue; 

3 CONTINUE 
C SIDE SHOCK* 

P ( 2 7 S 1 ) * P ( 2 7 4 7 ) 

P(27b2)*p(2/4b) 

P(2/S3I»P{2/HV) 

P ( 2 7 5 1 J * P I 2 7 b 0 > 

c caLc u lat l y q ar component of Position Vector from c«i ro HSi.KS2.KS3 in 1 1 • j 1 • 

c k 1 system 

p(678u>*p(SV3s)+pM966) 
p I 6 7 8 1 )=p(SV36)^p(966> 
p( 8782 I * P i 5 9 3 / ) ♦ P ( 9 6 6 ) 

c calculate ybak component of Position vector from cgi tu kc in ii.ji, 

C K 1 SYSTEM 

P(969J*P<968)+pl96fc) 

C SET SOIL PENETRATIONS ANu FORrES TO ZERO. IF it IS ULSlKtU 10 INPUT 

c soil 1 , c • s 0 T h e k than zero, They m u 5 i a e set to «ukmni, v a l u e s h l k e • 

1)0 3 1 J« 1 , NSK 
Yb2Sl0(J)*0«U 
F V 0 ( J ) =0 * 0 
3 1 CONTINUE 

C SE T so I L T 0 ZERO FUR K 1 NO 1 
DO 4Q J* l *24 
YB2R 1 0 t J ) »U iU 
4 0 F V K 1 0 ( J ) *0 • 0 

c set soil to zero for hino 2 

00 4 1 J* 1 *24 
Y82R2U ( U ) «0 
4 i FVR20(J)*0»0 

C SET SOIL TO ZERO FUK KING 3 
DO 42 Ja 1 ,24 
Y82R30 ( J ) *0 
42 F V R 3 0 l J) *0*0 

C SET RING DEFLECTIONS to zero 
DO S 0 3 JS 1 , 7 2 
FU3 DElEQG ( J ) «0 # 0 

C CALC.YBAK COMPONENT of PoS.VErTOR FKlM CGI TO kSl,KS2,KS3 
P ( 7 37b ) *P ( 593b ) + P t 966 ) 

P(7376)»P(5V36)*P(966> 

Pl737/)=p<S93/)*P(966> 

ANG*SIN<FA)/C0S(FA) 

IP(AKC-0.001)6,6 i 7 

6 AK C « 1 • 0 + 64 • 0* ANVa • * 3 

7 CONTINUE 

C COMPUTE SOIL L 0 a L» AREAS FOR EaCH SKIN POINT ( acU> t hRU aC(NSK)) 

LBC-PIS9M2) 

NOTHT'P (594 1 ) 

NOOR *P ( S9 40 ) 

NOTHTM*NOTHT- 1 
NK aDDU«NOOR - 1 


48 


C COMPUTE RADII B o U N U i N b T n E A R r A S 
DO bl J=1 ,NRauUU 
IF (J.uT. ( LBC-2 ) ) GO TO b2 
AC«<J< = UKSP(jM)-KSPiJ))/ ? .U|tRSMJ) 
bO TO 5 1 

b2 I f < J. bT . ( LbC- I ) J GO TO b 3 

ACN<J>-<(ftSP(j + 22-RSP(J))/ 9 ,0)+KsMJ) 

00 TO bl 

b 3 IF ( J*tO«NRAUl)U) b Q TO b H 

A C R ( J J = I C*SP(j+2)-KbP<J+l) i/2.0)+kSP(j+1 ) 

GO TO 51 

b** AC k ( J ) = RSP < NOOK ) 

5 1 CONTINUE 

C COMPUTE ANGLES BOUNDING THE AWgAS 

ACTHTtlle I T H T S P ( 1 ) / 2 » 0 ) + ( (THTSP(uOTHT) a ThTSPINOTriTh) 1 /2*U) 

ACTHTl2)*THTSP(2)/2.0 

00 bb J=3#N0iHT 

ACTHT(J)* (ThT5P( J)-ThT5P( j. 2))/2.0 
bb CONTINUE 
C COMPUTE THE A REaS 
C INNER PING AKEmS 

DO S6 J- 1 * NOThT 

5 6 A C I J ) = (O.OD07266*ACRII)** 7 )» A CTH1(J) 

N I NDEA*N0THT+I 
NAC* 1 

NT I MES J *N00K“2 
00 b 7 J * l » N T I M E b 
M * 0 

NtND*NlNDEX+NOTHT-l 
DO b 8 K = NINDEA,NENU 
M*M + 1 

ba A C * K ) = Q*00B7266*AcTHT(M)*(AcPOiMC + ll**2"AcP t NAcJ**2l 
NAC»NAC+1 

NINOEXs.NINDEX + NOTHT 
b 7 CONTINUE 

atotal^o.q 

00 S 9 J » l ,N5K 

59 ATQT al*atot AL+AC ( J) 

»VRITE(6*6U)ATUTaL 

60 F 0 R M A T (3bH TOTAL COMPUTED h . S . P Ro J E C T E 0 A REA«E1S.6) 

RETURN 

END 


SRC3 


subroutine HONSAV 

DIMENSION Ya2NlU(2M),*VR10f2 i U,Yb2R2O(2‘*) > £VR^0l2H) t Ya2K3u(^). 

1 F v R 30 t 2 4 ) 

DIMENSION YB2Rl<2‘n # Yb2R21?H),YB2K3(24) 

DIMENSION P ( 9 b 4 9 ) iNTEGER(Sn) ,v A R<Y 999 >*CSU b 3120) # nSTuk<2U).cOEE(2U 
l).YB2Sl(200>.YkJ2SlO(2 00>tFwOl?OO).FPR(20 n i.X5>TR(2u0>.XB2KTS(2oa)i 
2Yb2RTSl200) l /B2RTSt20Q) # vErTB(200) > AlN(2nO) 

J.ACI2U0) ,Y< 10U1 

DIMENSION V£CT0N( 72 ) f VB2 RSmI 72) »Xb2NSN(7? ) l Ztt2RSN(72 ) iDCLtUUl 72 I . 

I DElEqO t 72 ) 
common VAR 

EQUIVALENCE (P(6763) l YB2KioU))»tp(68bb).FVR10U)l # (pl6tiU71, 

1 Yb 2R20( 1 ) ) » ( p ( 6879 ) • FVR2 0 » 1 > ) • l p ( 683 l ) » Yb2R3u ( 1 ) ) « 

2 (p(6903),FVR30(l)i»(P(7303).DELEu0(l)) 

EQUIVALENCE (p(6927),y B 2RIii)),(pl69bl) l Yb2R2ll)).tP(697b)»Y b 2R3 


1 ( i ) t , i P ( 72 3 1 ) • Dt.Lfc.wO ( 1 ) ) • ( p { 7 30 3 ) * DELLCiO < 1 ) ) 

t * u 1 V a L L N c fc ( p l / 3 7 8 ) • V L C T B n l 1 ) ) t ( p ( 7 4 b 0 ) , Y 6 2 K S N l 1 ) i t ( P ( 7 b 2 2 ) . 
UD2HSi-<l))i*P«7bV < n»Zb2RSMil)) 

UJUlVMLLNCfc.*NTEbEK<29* t NbP5H)t(NT l .6EK«30l*INuI)»lPCVH < *),NSTUR(in 
1 ,(P(Hul ) • C S U B 3 ( 1 ) ) i ( P ( 6 6 I ) .cOttl 1 )) » { N J E 6 t R C 2 1 ) . N C A B L t ) . 
2(.\iTtGtR(28) ,NPA«I , ( V A N ( 3 L> 1 j , N T E G t * < 1 ) ) , l V A R { 4 s 1 ) , P < l ) > 
3,lN?EuLR<2O)tNLATP)»(e(27bi) t S£Vc3P).(PUb9).bTR0iCPUlPt27bJ) t FtC 

4l 3p > . < N UGER t 1 9 > iNLATM> * (Pc 27b2 ) .SEVC3rt> , IP <46q> ,StkqK M ) , lp(2/b4 > 
b ,f LC 1 3M ) , INTEGER [ b I .NSK>.<Fl2758>,Yb2Sl l 1 J) . (P (3lbB ) ■ Y b 2bl0 ( 1 > ) 

6 . ( p ( l V b 8 ) ,fvq( 1 ) ) » t P ( 3 9 6 1 ) . G C 0 w S T ) • < P l 3 9 a 2 ) , (jPUW£K ) , I P ( j jbd ) • F P R 
7ll)),iPt3b&8i,xbTR<I)>*(p(^758)iVLCTfa(lM.(PlHl8u)*Xd^KTSUn, 
Blp(M3oG),YB2Pi5ll > ) • < P ( 4bUn ) * ZB2 r T 5 ( 1 ) ) 

9 , ( p ( 3 9 7 J ) , A C ( 1) i * ( V A R ( 1 ) . Y ( 1 ) ) 

EQUIVALENCE (P<ft81 ) i A 1 ) • l P t 6 B ? ) » n 1 > * l P < 6 fi 3 ) * C 1 * » l P ( 6 d 4 ) , D I ) * (P(68b 
1 ) i E 1 ) • 1 P ( 6 B 6 ) # F" i ) > I P l 6 8 7 ) *^i ) * ( P ( 6 8 8 ) iMl 1 t ( P I o d V ) » a I 1 ^ » l P I 6 V Q 1 i A7 ^ 
2,<p<6Vl>.b2>,(pUV2>ic2),<p<693>.u2>.(PU94>.t2>,tP<69b>.P2>.(P<69 

36),G2>.‘P(69/i,h2)«(P(69b).Al2)itp ( <i78U).AInU>> 

EQUIVALENCE ( P ( 7 6 6 V ) , YHShX 1 , ( p < 7 6 7 0 ) • N P H s ) • ( P * 7 6 7 1 ) • Y K 1 n A J i 

1 t P ( 76/2) • N P R 1 ) . I p ( 7 6 / 3 ) • Y R 2 M X ) * ( p l 7 6 / 4 ) » N P R 2 ) * l P l / 6 7 b ) * Y n 3 M X ) » 

2 l P < 7 6/8) , N P R 3 I 
JF(fMPrtR)b»b*6 

f> DU 4 J* I NO I , NC AbU 
JJ=J-N5PSH 
IF (NbTORtj) ) 3 • 4 • 2 

2 P ( J J + 2&23 > =CQt£ i J ) 

P l J J + 2433 ) =CSuB3 ( J ) 

GO TO 4 

3 PtjJ + 2643 ) £ COlL l J > 

P ( J J + 2b J3 ) *CbUt33 ( J > 

4 CONTI N U E 
b COnTInUE. 

c Save SIDE STRUT STROKES and Fn RCtS 
IF ( NLhTP II U • l u . I l 
10 SE w C3P*STRUKp 
FEC 1 3 P * P ( 4 4 1 ) 

GO TO 11 

1 l IF 1 N L m T H ) 1 2 . I 2 • 1 3 
12 SEVC3I1*STR0KM 
FEC 1 3rt»P < 4S0 ) 
l 3 COnTInUE 

c s A vt ground foRcl and penetration distance 

Y hSMX sU . o 

DO IS J= 1 . NSK 

IF (Y b 2Sl (J)"Y o 2S10(J) ) 1 6 » 1 a • 1 b 
1 6 Y b 251 U< J)*Yb 2S1 l J) 

IF < Y b 2 5 l 0 l J ) ♦YHsMX ) 90 I 9 1 i 9 i 
9 0 Y H SMX=“Y 8 2S10k J) 

N P H S » 0 
9 1 CONTINUE 

FVQ( J)» : iGCUNSl*iAbSlYb2Sl t j > ) )»*^P0 wER)*aC(J)/ 1 1.U447 
lb CONTINUE 

c Save ground furce and penetration distance fur ring i 

Y R 1 MX = 0 • 0 

DO 64 J* 1 » 24 

I F ( Y B 2 R 1 (J)-Yb2KlO(J) ) 6S , 6s ,6 m 
6b YB2R 1 U ( J ) * Y B 2 K 1 l J ) 

IF (YB2R10(J>+YKIMX)92i93,93 

92 YR I HX = -YB2K 1 0 I J ) 

NPR 1 «U 

93 continue 

FVRlolJ)*lGCUNST*UttS<YB2Ri (j) ) )**GP0wER)»p(6b6l)/ll«U44/ 

64 continue 
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C Save GROUND FORCE and penetration distance for KING 2 

YR2MX=0.0 
DO 66 J= 1 , 24 

lF(Yb 2 R 2 (J)-Yb 2 K 20 lJ)) 67 . 67,66 

67 Yb2R20( J) -YB2k2( J) 

IF(YB2R20(J>+YR2MX)94,95»9n 

94 YR2MX=" Y02K2O ( J) 

NPK2* J 
Vb CONTINUE 

FVk20l0J*tGC0N5r*tAB5lYB2R?<J) ) )**GP0ftEK)*p(6b62)/l j • U 4 4 / 
66 CONTINUE 

c ^ave ground force and penetration distance for ring 3 

YR3MX=U . u 
DO 68 J=1 .24 

IF ( YB2R3(J)"Yb2K30lJ) >69 *69 *68 
6 V YB2K3U ( J ) * Y b2 R 3 1 J ) 

IF(YB2R30(J}+YR3MX)96,97 t 97 
96 YR3MX a -YB2R30 t J ) 

NPR 3 = J 

^7 continue 

FVR30tj)«(GCONST**ABSIYb2Ri<j)))#*GPUrtERl*P<6b6 3)/U.u447 

68 Continue 

c save ring deflections 
DO 7 1 J*l ,72 

IF (DLLEQU (J)-DELE^OTJ) )7» ,7| ,72 
72 DElEuuI J)*DEL tUU( J) 

I F C J-24 ) 73 t 73.74 
7 J OELCx*P ( 7Q 1 0 ) 

YF I X=H ( 737b ) 

GO TO 77 

74 IF ( J-4B ) 75,7b,76 
7b DELCK=P(7012) 

Y F I X cp < 7376 ) 

GO TO 77 

76 DELCK=P(7Q14) 

YF I X=P ( 73/7 ) 

77 IF<DELEQuiJ>-DELCK)7l,7lt7u 

78 delmod*deleou(J)-oelck 
AR I TE ( 6 ,80 ) J , oELMQD 

00 F Q R M A T (9h EDGE PT.I4.J6H HaS PERfl.SET OFeIS.6) 

DELEOU ( J ) aDELEQU ( J ) -DELMOO 

c modify king pt unloaded position 
VECBN=VECT bN(j)-DELMOD 
ThTON = ARCOS(AoS(Yb 2KSN(J) )/VEcTttiN(J) ) 

S T H T 0 N * S I N ( T h T 0 n ) 

YB2AUA*VECdN*C0S(THT0N) 

YB2RNE*SlGN(Yb2AUX,YB2RSN(.j) ) 

RSUBN=VECBN*STHTON 

wSUBN s VECTbN(j)*STHTON 

XB2RNE=XB2RSN(J)*R5Ubn/QSUbN 

2B2RNL*ZB2RSN(JI*R5UBN/QSUaN 

SUblNN*Al*XB2RNL*Bl*Yb2RNE^Cl*7b2KNE 

SUb2NH*Dj •XB2KNE+EI *YB2RNE+F 1 #ZB2 kNE 

SUb3NN=G1*XB2kNE+H1«Yb2RNE^AI1*Zb2RNE 

P(j+6b63I=SUBlNN^P(V6b) 

P<j+663b)«SUb2NN+YFIX 
P(j-**6/07)=SUb3NN + P<967} 

7 I CONTINUE 

C DETERMINE plate def lect I ONS , XsTR ( J ) ...HERE N e e©ED 
C LET all LOADED points have PERMANENT set EOuaL to XSTRtji 
REMIND 15 

kount*o 
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N L A 5 T = 0 
«K I T E (<> » 1 > 

1 FORMAT C 1H ) 

DU 18 J B 1 » NSK 

C DETERMINE WHICH POINTS ARE LO uD Eo 
IP (AbS(FPR(Jl)-Q. 01)21,19. 19 
19 IF (NLASTJ22, 22*23 

22 *R I TE (6 ,24 ) J 

FORMAT (37H+LOwEbT N U • P T • 1 N COnTACT *» 1 T H SOIL MM) 
c REPLACE the FOLLOWING card w H f n STRUCTOKAL MATRIX is aVaIladlL, 

23 CONTINUE 
NLAST = vJ 
KOUNT = KOUNT + 1 

GO TO 1 8 . 

C REPLACE the FOLLOWING CARD ft H ► N STRUCTURAL MATRIX IS available. 

2 I CONTINUE 
1H CONTINUE 

rt K lT£(6»2b)KQ0NT » N L A S T 

2b F ORNaT * 1 H + t ^2X , 3 VhT OT AL N 0 • o F PM*I N CONTACT «lTh SOIL Ml* 1 , ^ b rt 
IHE5T N0#PT.IN CONTACT ISM) 
rtKlTEl6i8l)pt6VV9),p(70Ua),pI7rj01i 

8 | FOKMAU27H EOoE RING FORCES I 1 . J 1 * K l * J E 2 0 • 8 ) 

RETURN 

End 


SRC4 


SUbKUUT 1 N E I N A l 0 

DIMENSION Y ( 1 00 ) * pl9bHV) ,NTE»jLK (bU ),VAKt99VV> 

COMMON VAH 

EQUIVALENCE l V AR ( t ) , Y U ) ) • ( V A K ( 30 1 ) • N T £ ^ L K U ) ) . l V A 

K MSI I ,P ( 1 ) ) 

EQUIVALENCE (P(lUi.ULl l l>i ( Ptll)iDLll2)*tPll2),uLll**),Ipt 

l3)*OLl21)*(PtM),DLl22),(P(lS).DLl23)»lp(l6),ULl31),(P(l 

7) » U L I 3 2 ) • i P ( I 8 ) • o L 1 3 3 ) • t P l 2 6 ) • u L 2 1 1 ) • I P l 2 / > ' U L 2 l 2 > .lpl2a 

).DL2l3),<P(29),D,22l)*lP'<30)»0 L 222).<Pl3l)*O L 223)»(p(32) 

•DL23lJ»Mt33).DL232).Ipt34),DL233) 

P(10n*0Llll*PM7n)+DLl2l*P<V71)+DLl3MP(9/2 ) 

p(108)»DLll2*pt9 7{j)^DLl22*P(97n^DLl32*P(972) 
p ( 1 Q9 ) B DL1 13*p(97Q)+0L123*p(97 \ )+QLl33*P(972) 

p(ll6) s UL2U*P(98o)+oL22MPl98lMOL23MP(98 < i) 

P<ll/)*DL212*P(98n)+OL222*PlVat)+DL232*P(9b2) 

P<ll»)*0L2l3»P(98n»+OL223*PC981)+0L233*Pl9a^) 

SET IN INITIAL COnDI T lONS 
Y ( 1 >*P (9 ) 


Y I 2 ) 

a 

P< 107 >/<, 7 . 295779 b 

Y 1 3 ) 

E 

P< 10 H 1 / 57 . 29677 V 5 

nil 

E 

P ( 1 OP 1 /b 7 • 2967 7 VS 

Y (b) 

s 

P ( 1 10 1 

Y t 6 ) 

S 

P 1 1 11 ) 

Y I 7 ) 

S 

P ( 1 1 2 ) 

Y 1 B ) 

m 

P 1 1 1 3 ) /S 7 .2957796 

Y (9 ) 

• 

PI 1 1 < 4 >/S 7. 2967796 

Y t 10 > 

m 

P< 1 151 / 57.2967796 

Y < l 1 > 

m 

p( | It)/S 7. 2957796 

Yt 12 ) 

n 

P( 1171 /S 7 • 2 VS 779 S 

Y 1 l 3 ) 

M 

P< 1 lB>/ 57. 2957796 

yirn 

• 

P ( 1 1 9 ) 

Y (lb) 

m 

PI 120 ) 

YU 6 ) 

u 

PI 121 » 

yim 

• 

P I 1 22 1 /S 7 .296 7 79 b 


k I b 
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P ( 3b ) = S I N C 
p { 36 > =C OS < 

P ( 3 8 ) a s I N < 

p < i9 > =cus i 

P<MH)=SlN< 

p < ) =cas ( 

PlM6)=SlN< 

P ( H 7 ) =COS ( 
P(b976)»SlN( 
P ( *97 7 ) *S I N < 
P i b97b ) =CUS ( 
P ( S9 7 V ) *COS ( 


Y< IS) » p( i 23 ) . 2VS779S 
yt j9) * p( i Zh ) /S7.29&77V5 

Y (8 ) ) 

Y ( 8 n 

Y ( 17 n 

Y ( l 7 ) ) 

Y ( 9 J } 
r (9 ) ) 
niBi) 

Y ( 1 8 ) ) 

Y ( l 9 | ) 

rdOM 

Y ( 1 9 i ) 

Y ( 1 0 * ) 


M2*P ( 3 9 ) *p ( by 78 J 


82*Pl j>9)*P(b976 J 


C2s-P l 38 ) 

D2*PM6)*P<33)*P(b978)-p(5976)*P<**7) 

E2=P(H7)«ptb9/8)*p(M61*P(38)*pl5V/6) 

P2«P(H6)*P<39) 

C 3 2 s P(b976>*P(H6) + P(M7>*p(38)*p(&9 7 8i 
H2*P(‘l7)*p(38)*ptb976)-p(H6>*p(b9/8) 
AI2*P(H7)*P(39) 

Al»P(36)*P(b979) 

Bl=P(36)*P<by77) 

CI--PC3S) 

Ul*P<‘tH)*p{3bi*P<S979)-p(S977)*P<Mb) 
£l*p(Mb)*ptb9/9)+p{HM)*P(3b)*p(b9/7) 
F 1 *P ( 4M ) *p I 36 ) 

Gl 3S pil>977) # p(HH)+p(H5)*p(3b)*p(5979) 
Hiap(^b)*p(3bi*p(5977)-p(S4)*p(b9/9) 
A I l =p ( Hb ) *P ( 36 ) 
XXPR»A2*Gi*B2«Hl+C2«All 


A K K P R a D2«G1 +L2*H1 +F2«AI 1 
ZZPR*g2*GI+H2*H1*AI2*aI1 

Y(20)=Atan2((-XXPR),(sURT(AkkPK**2+/ZPR**2M) 

Y ( 2 J )*ATA.M2(AKKPR,ZZP w ) 

Y(22)=ATaN 2( (A2*D1+B2*E1 ) »U2*Al+B2»tfl+C2»Cl) ) 
Y ( 23 > =P ( b9V2 ) 

Y <2H)=P(b993) 

Y(2b)=Pib99M) 


Y ( 26 > 5 P ( B9V5 ) 

Y ( 27 ) =P ( S9V6 ) 

Y ( 28 > X P ( b 9 V 7 ) 

C SET IN CABLE INITIAL C °NulTlQNS 

NCAbLE « N T E u E R ( 2 1 ) 

NRESkV « N T E GER ( 3 > 

N D 0 « 3* N CABLE 
DO MbQ J * I *NDO 
NPUT * J ♦ 22 + N*ESRV 
«* 5 0 Y INPUT ) * P< j+139) 

return 

END 


SRC5 


SUBROUTINE uerfun 

DIMENSION Y ( 1 00 ) , ri YDX I 1 Ob ) .R ( 95 mV ) ,NTE(jEK (bU >.VAK(9V9VI. 
XlPll 20 >>YlR|( 20 l.Zlpl< 2 ii)ix 2 p 2 ( 20 )fY 2 p 2 ( 20 )iz 2 (> 2 ( 20 )» 
A1«2u>«A2120)*A3(»o>.FXI1I20)«Fy1H20>iFZ1!<2u1,M2i(20>* 
FY 2 l( 20 ).FZ 2 j( 20 ».aXI« 2 o».GYI« 2 Q),GZl( 20 I,<ix 2 ( 20 »,<,t 2 ( 20 ) 



4 •GZ2l2U).AbKi20)tYBR<20)iZ6R(20),XBND<*U),Ytt*Ul*U>*ZbRU( 

b 2 0 ) , T t l 0 0 0 > 

COMMON VAR 
COmMOh/ADM/T 

EQUIVALENCE tVARti )«Y<n)i<VAk(lUl>iUY0X(l>)i<vArt(Jon« 

1 N T E G t R l 1 i ) • l V A R ( *♦ e; l ) t p( ) ) ) t ( Y t 2 ) tOMXlPi • ( 0 Y U A ( ^ ) » 0 M X 1 P 0 ) • 

2 tr(J),OMYlP).(i5YD»«3),OhYlPui.(Y*4ltOMZlP ),<Ytb),UlPP), 

3 C0Y i >x(b>iUlPP0)«(v(6l.VlrP*»(0Y u X(6)»ViPP0^t ( Yl/ltN|pp) v 

* <OYuA*/l»mppO>«(v<B).TH|l>»CDYoX(B»iTHTlO>ilYlYltPHll)i 

5 «DYOX(Vi,KHno>.(v(lO)*PSin*<DYUX(iOitPbIioKUtiniOMX2 

6 P)*<UYuXill)i0MX2pD),(Y(l2).oriY2P),(DYDX(l2)»0MY2Pu)* 

> (Y(li).OMZ2pi t (DYOX<l3».OMZ2PO),lY(lH),u2pPi > (oYuX(l < 4). 

b U2PPo).tYUb),V2PH).n;YDx(l&).V?PPO),(Y(l6), a2PP>*(UY0X 

V <l6»*>AZPPD),(Y<l7i,THT2).<UY£)xlr/>.THI2Ui,(Yil*».PHl2> 
EQUIVALENCE (OYOXUB| i PHl20),(Y{l9) f PSl2i # iOYOA(i9) t PSl2u 

l ) t ( Y ( 2 0 ) » T H T b R ) * ( 0 Y 0 X t 2 0 ) » T h T b R 0 1 « (Y(2l ) * P H I b * ) , l U Y 0 x l 2 l ) 

i #PHIt>Ku),(Y(22).Pc.IdK).*uY0X(22liPbIbKO),(P(J) t CiXAli, 

3 Cp(H) t LlYYi) # *Pl5i f ClZZll.Cp(6) t CMl)t(PilO).WLlll>t(PUn 

** •0Ll|2>»tP<12)*0Lll3)t(p(l3)«0Ll2l)»lptlH).L>Ll2^>.lpUb)* 

b DLl2J).(p(l6i,0LiU).<P(i7).0LJ3 2)»tPUb),ULliJ).(PU9)* 

a CIXX2*»<P<20iiCIYv2)*<P<2li.Cl2z2).tPi22),(.M2).(pt26), 

/ DL2ll)itpt27),DL2l2>.<P<^B),UL2i3).lp(29) # uuZ21)»(P(J0)» 

8 0L222)»tP<3l»iDL223K<P(32i.uL231).4pt33i.Uu232l*(p(3M)i 

V DL233).(pt3SI»srMTl>tlPl36>,cTHTl)#lPl37),TTHTl) 
EQUIVALENCE <p(38t * S T H T 2 > • t P ( 3 9 ) * C T H F 2 ) »(p(HU) * T T H 1 2 ) « 

I (P(H1 ) ibThTijR) * ( p ( <4 2 ) • C T M T tt K ) • 1 p < 4 3 1 • T T m T B N ) t l P t *H ) , S P h I 1 

l ) • 1 p ( *4 b ) »CPhl 1 J • ( p ( *4 6 ) • S P H l 2 ) • lp(H7 ) • C P h 1 2 ) • (p(Hb) ibPHlBK 

3 >i(ptH9),CPHI0N)»(P<b0),bXlp).tplbli.GYlP)tlP(b2).GZlP)*< 

*4 P 1 b 3 1 * (j X 2 P 1 » < P ( B *4 ) * G Y 2 P ) • t p l b b ) , G Z 2 H 1 » t p ( b b ) t Q li A 1 ) » ( p ( b 7 ) 

b .0MYl)»tPtb8),0MZl>#(p(S9)i0MX2»,(p(60).UMY2i.(plBl),0hZ2 

6 > i (pl6Z> iUl > ilp(6il ivl ) « i a 1 ) • (p(6b) «U2< tlp^6l «V2) • 

7 (P<67)..j2).(P(6B).GAMbll)i*P(6V)iGAMdl2).(P(7uiiGAMbl3)* 

6 lP(7i>.oAMd2l>.<P<72>*GAMB22>f*Pl73)»<aAMb23>i(MV t U # GAMa 

V 31 ) »iP( 7b) i G A M 6 3 2 ) • ( p ( 7 6 ) » G A M B 3 3 ) , ( P ( 7 7 ) » 5 P b I b R 1 
EQUIVALENCE (P(7bi,Cp5leK).tP(79).bXlT)»iP(80|,^Tin,(p(b 

1 t)iGZllli(P<il2).^x2T).tp(B3) l GY 2 r),(P(BH),Ux2T) l (p(bb), 

l FXll! l.<P*86l.PYllTl,lP(b7),F2l|n,lP{ttttl l fxZlI)t(P(aV), 

3 FY2lT)i<P<90),FZ2lT>.(P(Yl>.&XlpT>.(P(92J*(irlpn»tP(V3)» 

‘4 GZlPT).(p(9H),Gx2pT),(P(Vb),GY2 P ri.tP(96J,GZ2pT).(p(97)» 

b SlNPH2)i<P<98),cUSPN2>.(P<9V),C0STH2) t lPUUU>,blNPrll>.(Pi 

6 101 ) .CUbPHl ) * t P l | n 2 > • C 0 S T N 1 ) • ( P ( 2 2 1 ) iXIPl ( 1) ) * l P ( 2 *4 1 } % 

7 YlPUl))»(P(2611,zlPlUn,(p(2Bi),x2P2(l))t(P(3ui).Y2P2(l 

B )).(p<321).Z2p211i).ip(3Hli, A l(i)),(p(36l)» A 2(l)).lp(3Bl) 

V .A3(i)),(pm61) > FxlMl)).(Pl4811.frYllU)) 

EQUIVALENCE lP(bUl).FZlMin*(P(S61)*FZ2l(l)J,lPl70I),GXl 

1 tl)>.(pt72l)»GYl«|N,(p(7Hl),GZ 1 (l)),(p(76l).( a x2U>). 

2 ( P ( 7 b 1 ) ,gY2( 1 ) ) 1 1 p ( 8 0 1 ) • g Z 2 ( 1 1 ) ,1P<o21)»XbR 11) 1 » l P l d H 1 ) » 

3 YbR<l)l»<P(B6l),Z^Rtl))flP(BBl) t X d R0U))itP(90l).Y or tU(l)) 
•lPlV21)iZbRutl)).lP(l2B).AGXlPT».lPll29),AGYlPTl*tpll30) 

b t A G Z 1 P T ) # < P C i 3 1 ) • a G X 2 P T 1 • l P ( 1 3 2 ) • A G Y 2 P T ) 1 ( P 1 1 3 3 1 1 A b Z 2 P T ) » 

0 IPtt3Ml. A FXllT),(p(13b),AKYllT),(P(136),AFZllT)*lPU37), 

7 AFX2lTJ»<Ptl38),AfY2fT».(P(l39) t AFZ21T)i(oYoX(M), 

8 0 M Z 1 P D > • ( P ( b 2 I ) » F x 2 I 1 1 ) ) • (PlbMl ) t F Y 2 1 ( 1 ) ) 

Equ 1 VALENCE ( P ( by 76) ,5PS 1 2£ ) * (P(bv /7 ) I SPS HE ).( P ( by 7B ) »CPb 1 2E ) , 

HP(b979) l CPSllE) 1 t N T E G E R ( 9 1 .KA 1 > .INTEGER^) .NN) 

1F(xaI-3)3,3,2 

\ DO H J * l , N N 

1 y ( j ♦ 1 ) * r t j ) 

Y l l ) a 1 1 N N ♦ 1 ) 

bET UP THE RELATIVE CONSTANT 
l NCABLE « NTEGER (21) 

NWESRV * N T E G E R ( 3 1 


c 

c 


c 


c 


c 

c 


c 


c 


I 2 


StT iN X, Y # Z b A -v V A L 0 E s ** h I C H ReSULT F K 0 M T h t 

INTEGRATION 

00 1 2 J * i ,NC ABLt* 

JUMP1 * 3*J ♦ 20 ♦ NRESrv 
X8K ( j ) a Y ( JUMP i ) 

YBR ( J ) * Y { JUMP 1 + 1 ) 

Z8R ( J ) * Y 1 JUMP 1 + 2 > 

CALCULATE TR1GN0ME TRIC FUNCTIONS 
STHTl * S1N1THT1 ) 

CTHT 1 * COS (THT1 ) 

TTHT) » STrlTl/CTHT 1 
S T H T 2 * SI N ( THT2 * 

CTHT2 * CGS< T HT 2 ) 

TTHTZ * STHT2/CTHT2 
STHTbR a S 1 N { T H T b k ) 

CTHTdR « COS(THTBR) 

CPSI 1 t*CoS< PSI 1 ) 

SPSI 1L*SIN(PSI i J 
CPSl2t*C0S(PS12) 

SPSl2L*SIN(PSi2) 

T T HT fa R * STHTBR/CthTBR 
SPHI l * SIN1PHI 1 ) 

CPH1 1 a C 0 S ( P H I l ) 

SPH12 * S I N ( P H X 2 ) 

C P H I 2 = C 0 S ( P H I 2 ) 

SPHIbR = S1N( PHIBw > 


CPH I b R « COS 1 PH 1 bR ) 

SPSlbR » SIN(PSIBR) 

CPSI d H * COS ( PS I BR ) 

CALCULATE 0 a M M A q A R vaLUlS FROM TRIG functions 
OAMB ll a CTHTBR+CpSIbR 
0 A M b 1 2 a CTHTbR*SpSIbR 
GAM8 l 3 a - s j h j B R 

G A M 6 2 1 a - C P h I B K * S P S I fa R + S P H 1 b R « S T H T B K * C P S 1 B R 


G A H b 2 2 a CPH I aR*CPS I bR ♦ 
G A M a 2 3 * SPHI BR*CtHThR 
GAMB31 » SPHlbR+SPSlBR + 
GAMB32 a -SPHlBK*CPSlfcR + 


SpMlBR»5TMTbK*SPSl D R 

CPHIBr*STHTbK*CPS1dR 

CPHlfaR*STnTbR*SPSIdK 


G A M b J j a CPH 1 BR*CTHTbR 
transform principal axis angular 

AXIS COMPONENTS 

0 M X 1 a QLl 1 I+OMXIp ♦ 0L1 l2*UMYlp 


OM Y 1 
OMZ l 
0 M X 2 
0 M Y 2 


OL I 2 1 * 0 M X 1 P 
OLl3l*0MxlP 
0L211 • 0 M X 2 r 
0L22 1 * 0 M x 2 P 


+ DL 1 22 * 0 M Y I p 
+ DLl32*0MYlP 

♦ DL2l2*0MY2p 

♦ DL222*OMY2p 


velucit ies i N I U SYMMETRY 

♦ OL 1 l 3 * Q M Z 1 P 

♦ 0L12J*QMZ1P 

♦ 0L133*0MZIP 

♦ UL213*0MZ2P 

♦ OL 2 23 * OM Z 2P 


0 M 2 2 a 0L23 i*0Mx2p ♦ 0l232*QMY2p i 


U 1 

a 

U 1 PP 

VI 

m 

V 1 PP 

1 

m 

ft 1 PP 

U 2 

z 

U 2 P p 

V 2 

X 

V 2 P P 

*2 

X 

» 2 P p 


OMX iPPaQMX 1 • G A M fa l 1 +OMY 1 • G A m B 1 2 " 0 M Z l * S Y H T y K 


Ol2 33 • QMZ^P 


0MYlPPa0Mxl*GAMb21*0MYl*6AMB22+0Mzl*GAM&23 
OMZ IPPaQMX! • G A M fa 3 1 +QMY 1 *GAMB32+0 m/1 * G A M B *J 3 

calculate theta, phi, psi bar derivatives 
rHTBRUaCPHl6R*(QMY2-0nYlPPi-5PHibK* l 0 M 2 2 - 0 M 2 1 P P ) 
PhlBRuaOMX2-OMXlPP+TTMTBR*SPHia«*(OMY2-OMYlPP)+TTHTfaH»CPHiBR* 

I ( 0MZ2-0HZ 1 PP > 

PS I BROaSPH I BR* ( UMY2-0MY 1PP ) /CTHTfaK + CPHlBR* ( 0MZ2-0MZ 1 PP ) /Cl HTbK 
CALCULATE THT. PHI, pSI uERIVATiVES 
T H T 1 0 * CPHIl*OMY| - SPhI1*0M21 

p HIlU « 0 M X 1 ♦ TTmT 1 + ( SPh I l *OMY i t cPhU*0HZ1) 
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c 


c 

c 


c 

c 

c 


c 


c 


c 


PSIlu * ( S P H l 1 * 0 M y 1 ♦ CPH 1 1 *UhZ 1 ) /CThT 1 

ThT2u - CPHI2*0MY? - SPhi2*UM Z2 

P H I 2 u * Q M a 2 + T T HT2* ( SPH I 2*QM 1 7 ♦ CPHiZ»0M2Z) 

P b I 2 0 c (SPHl2*0Mv2 ♦ C P h I 2 * 0 M Z ? ) / C T H l 2 
NOW CALCULATE THE ALPHA VALUES 
DO 620 0 * 1 , N C A B l E 

A 1 { J ) = U2 ♦ Z2P2 < J ) *QM Y, - Y2P2(J)*UM22 

a 2(j) * V2 + X2P2ij)* 0M/^ - 22P2 l J ) •UMxZ 

A 3 ( J J = «2 + Y2P2lj)*U«*z - x2P2ij)*0MY2 

THEN CALCULATE X, Y , Z b A R DERIVATIVES KuR L A C n 
attachment POINT 

XBRD*J> = Ya«{j)*f)MZ! - ZBK(j)*OHYl " Ul 

1 - Zlpl t J ) * 0 M Y l ♦ Y1P1(J)*0MZI 

2 +6AMBM*Al(jJ+GAMB21*A2(j)^6AhbTl*A3*J» 

Y B R 0 ( j > * ZBK< Jl *UMX1 - aBMj)*qMZ1 “ VI 

1 - XlPliJ)*UMZl + Z1P1(J)*0MX1 

2 + bAMBl2*Al(j) + uAMB22*H2tj) ♦ 6AMB32 *Ab(J) 

a 2 d ZbNU(j) = XBH(J)*dMY 1 - YBRCjl*f)MXl * *1 

1 - YlPllJ»*OMXl ♦ xlPl ( J ) * 0 M Y 1 

2 ♦ GAMB13*A1(J) + t,AMb23*A2(J) ♦ GaMd33*a3<j> 

TRANSFER to THE shock force subroutine 

CALL CA3F0R 

TRANSFORM SYMMETRY AXIS K o H C E s IN BUuY 1 INTO S T m M l I K Y 
AXIS FORCES IN BODY 2 
00 790 J * 1 iNCABlE 

FX2IIJI * - GAMBlI *FX 1 I (J> - b A M b 1 2 • F Y 1 1 i J ) 

1 - GAN8l3*FZ I 1 ( J) 

F Y 2 I 4 J ) = - bAMB2 1 *FX 1 I ( J ) - b A M b 2 2 * F Y 1 U J i 

1 - GAMHZ3*FZ1 1(JI 

FZ2IU) = - b A Mb3l *FX I 1 ( J) - GAM b 32*FYl I ( J) 

1 - bAMB33*FZl I ( J) 

CALCULATE SYMMETRY AXIS MOMENTS UN bOfri dGult S 
bXlIJ) 3 YlPl ( J ) • F Z 1 IT J ) - Z1P1 lJ)*FYllU) 

0 Y 1 ( J J s Z1P1 i J ) * F A l I t J ) - XlPl T j ) * F Z 1 I < J ) 

bZllJ^* XlPl iJ>*FYUU> “ YlPl (j)*FxlMJ) 
bxZljJ* Y 2 P 2 i J ) * F Z 2 I 4 J ) - Z2P2 (j)*FY2I(J) 

b y 2 < J > * Z 2 P 2 t J ) * F x 2 I ( J ) - X 2 P 2 U)*Fz2llJi 

7 9D b Z 2 < J J - X 2 P 2 ( J ) * F Y 2 l { J ) _ Y2P2 ( J ) * F A 2 M J I 

Transfer to lateral shock subroutine 

CALL S105HK 
call bROFOR 
CALL Hi NbF 

NOW SUM THE SYMMETRY A X I b COMPONENTS OF moment 
bXlT*P(4HS)+Pl4SH)+p(Ml77)+p(7002) 
bYlT*PlHH6) + PtMSS)+P(Hl7b)+p(7003) 
GZlT*P(H«47)*P(HS6)*P(«H79)*P(7O0H) 


0X2 T * 0*0 

bY2T = P l HM8 ) +P44S7 ) 

b Z 2 T = P ( ) +R t MSB ) 

00 920 J * 1 • NC Ab| E 
GX 1 T - G X 1 T ♦ GXl(J) 
b Y 1 T * GYIT ♦ GYl ( J) 
bZIT « bZlT ♦ GZ1 ( J) 

6 X 2 T ■ G X 2 T ♦ Gx2(J) 

G Y 2 T » G Y 2 T ♦ G Y 2 ( J > 

Q 2 0 GZ2T * GZ2T ♦ GZ2(J) 

c next, sum The symmetry a a i s components OF FORCE 

FXI I T*P * MH2 ) *P ( H5 l )*P4<U7*n*P<6999) 

F Y 1 I T*P < **H3 J *P ( H52 » «*P (<U 7 & ) + P ( 7 00U ) 
FZllT*P(MHH)+p(HS3)*PlMl76)^P(700l) 

F X 2 I T * P < *♦ *U I ♦ P ( H 5 0 ) 

F Y 2 I T ■ 0*0 


F Z 2 I T * 0*0 
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DO 1 USO J 3 1 t NC AbLfc 
FXlIf 3 FXWT ♦ FxlI(J) 

FY1IT * FY1IT ♦ F Y 1 I ( J ) 

FZ 1 I f = FZ 1 I r ♦ FZ 1 I C J ) 

F X 2 IT = FX2 I T ♦ F X 2 I ( J ) 

F Y 2 I T - f Y 2 I T ♦ F Y 2 I C J ) 

1 n^O F Z 2 I t * FZ2 1 T + F/2KJ) 

c TRANSFORM SYMMETRY AXiS c O*PONEn1S OF TOTAL MOMENT INTO 

C PRINCIPAL AXIS COMPONENTS 

G x lPT = OL 1 l I ♦ G* l T ♦ DL12l*GYlT «• DLl3l*GZIT 

GYIPT * DL1 1 2 * 6 X 1 T ♦ DLlZ2*GYlT + DLl32*GZiT 

GZIPT ■ 0L113*GX1T ♦ DL1Z3*GY1T + UL133*GZU 

G X 2 p T * 0L21I*GX2 t + DL2zl*GY2T + DL231*GZ2T 

G Y 2 p T * DL2l2*GX2r 4 0L222*GY2T ♦ DL232 *gZ2T 

G Z 2 p T * dl2!3*GX2t ♦ DL223*GY2T ♦ u l233*GZ2t 

C CALL FORCING FUNCTION AND GRAvlTY SUbROUTlNfc 

call forfun 

C CALCULATE THt ANGULAR VELOCITY DERIVATIVES 

OMXIPQ = (GX1PT ♦ OM Y 1 P«.OMZ l P* { c I Y Y l -C I ZZ 1 ) ) / C I X A l 
1 ♦ AGX1P1 /CIXXI 

OMY1PO * (GY1PT ♦ OMX I P*uMZ 1 P« <c 1 ZZ 1 -C I XA 1 J ) /c 1 T Y 1 
1 + AGYIPT/CIYYI 

OMZ1PD = I G Z 1 P T ♦ OMx 1 P*LMY l P* t C I XX 1 "C l Y Y 1 I ) /C I ZZ 1 
I + AGZlPT/CIZZl 

0 M X 2 P D - I ^ X 2 P T ♦ 0MY2P»0MZ2p*I ci YY2- c iZz2))/ c iAA2 
1 ♦ AGX2PT/C1XX2 

OMY2PO = (GYZPT ♦ OMX2P«UMZ2P*(clZZ2-CIXX2) I/CITY2 
1 + AGY2HT/C1YY2 

0MZ2P0 = (GZ2PT ♦ 0 MX 2 P*uMY 2P* I C I XX2-C I Y Y 2 > ) / C UZ2 
1 + AGZ2PT/CIZZ2 

C CALCULATE BODY A X T S VELOCITY RATES 

U1PPD 3 * OMYl*ftlPP ♦ 0MZ1*V1PP + FXIIT/CMl 
1 + AFXl IT/CMI 

v 1 PRO * - 0 M Z 1 * U I p P ♦ o M x 1 * W l P p ♦ FYIIT/LM1 
C 

I + AFY 1 A T/CMl 

WIPPd x * 0 M X 1 * V 1 P P + 0 M Y 1 * U 1 P P ♦ F Z l I T / C M 1 
1 + AFZUT/CM1 

U 2 P P u * - 0MY2 ».*k2pP ♦ OMZ2*V2PP + FX2IT/CM2 
1 + AFX2IT/CM2 

V 2 P P D * - 0MZ2*U2pP ♦ 0Mx2*ft2PP + FY2IT/CM2 
1 + AFY21T/CM2 

ft 2 P P 0 * - 0MX2*V2PP ♦ 0hY2*U2PP ♦ FZ2IT/LM2 
I ♦ AFZ2IT/CM2 

C SET IN RATES OF CHANGE OF COORDINATES AS D Y u* S 

DO 1 2 B (J J = 1 •NCAGLE 

JUMP2 * 3*0 + 20 ♦ NKESRv 
DYDXTJUMP2) * XBRD(J) 

DYOXIJU rtP2 + I) • YBRD( J) 

1 ? 8 Q 0 YDX I JUMP2 + 2) * ZBrD<J> 

DYDX(23>- p(6dl)*UlPP^PU8u)*vlPP + P<B87)*ftlPP 
DYDX < 2H ) * p(682l*UlPP^Pl&8S)*vlPP 4 P ( 688)*wIPP 
0 Y U X ( 2 S ) = P(683)*UlPP*P(886)*VlPP + P t B89J*ftlPP 

D Y Q X ( 2 6 ) * p<690i*U2PP*P(693»*v2PP*Pl696)*W2PP 
OYUX * 27 ) « pl69l)*U2PP + P(69M)*v2PP*Pt6V7)*ft2PP 
0 Y D X I 2 8 ) * p(8V2l*U2PP*Pl69G)*v2PP^Pt690)*w2PP 
IF(KA1“3)5.S*6 

5 N N N * N N + 1 

DO / J*2 , NNN 
JJj‘NN+0 

7 r ( jjji=dydx(j* 

6 CONTINUE 

return 

END 
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SUBkuuI I (ML C ABFOR 

DIMENSION P<V5H9>,NTeGER<SG l*VAK<VV*?) t FXijl2U).FUU2a> 

» F l 1 I (^0) • XBK < 20 ) . ZBK < 2u ) .XbNU(2U*iYBKUl2Q> , ZbRU l 2U 1 , 

C A B L E ( 2 0 ) • S P R K ( 2 0 ) • C t) A M P ( 2 Q ) * K P t P 2 ( 2 U ) i FURS (20) * C 0 1 E l 2 U ) 

. YbRt2U)tCSUol(20).CSU62t20)*CSuB3(2J),NST0Kt2U) 

COMMON YAK 

E 0 U 1 VALENCE ( V A K ( 3 0 1 > iNTtCiLK ( 1 1 > . ( V AR ( Rb 1 ) • P i 1 > ) » < P ( *t 6 1 ) » 
FXllUH*lPtR&l>.FYlI<lH.<P<S0|)»F2lHin»(P(B2l).AbKU> 
).tp(aHl)*YBKll)).(p(B6li.2BKUl>*(Pt8ai) l XoKDll))»(F<VUl 
).YBK0lin,lp(9il),ZdRUUn.(pUUl *»SPKKU)),tp(62l ), 

CO AMP ( 1 ) ) . ( P C 6H 1 j ,Rpl P2 * 1 ) ) • < P ( 20 i »*K>RS (l))|ipi66l >* 

CC)EL< 1 J» t (P(S81 ) .CAHLEl 1 > > 

I 1 v ALCNCL (NT COER * 29 J .NSPSH ) . « NTcCiLK ( 30 i • INU I ) * (P ( ) f nSTOR ( J ) > 

I . U'(4ol ) , CSUttJi 1 ) ) 

EwuIyALENCt- (P(ob| I , Al MK(6a;} »tll ) * IP(6rtJ > ,Ci ) , (H(6oH) ,Ul ) , (Kl6Bb 
|).Ll)* ( P(6a6),Ft),(p(oa7).ul).(p(688) t hn t (p(6b9)*Ali),(p(69(j),A2> 
2.(F(6Vi) l B2> # (P(692),C2 ) *(M(693>t02).(P(6V**).£2),(P(6 , *'S).F2> t (P(69 
36) • G2 ) i ( P ( 6 V / ) »h2) *(P(696)*A12) 

Al=P( J 6 ) • P (59/9) 
bl*P(36)»ptbV/7j 
C 1 =-p 13b) 

0|*P('4M)*p(3bi*p(s9/9)-p(b9 7 7l*P<M5> 
tl*P(M5)*p(bV/9)«>pMm*p(3b)*P(S9 7 7> 

F 1bP|'H)*P(36 i 

Gl=P{bV/7)*P{BM)^P(MSi*P(3s)*p(5979) 

h l=P(s5)^p(35)*P(5V77i-P(MM)*p(5979) 

A 1 l=P(S5)*FM36j 

A2*P(j7)*piby;a) 

B2 = P ( 39 ) *P < 59 /6 J 
C2«-P 1 38 ) 

u2»P( 4 i6)*p(38)*P(b978i-p(5976)*P(‘i7) 

fc2«P(H7)*p(59/B)«-P(M6)*Pt3H)*P(59/61 

F2*P(H6)*P(39| 

02*P(bV76)*P(46)^P(M7J*p(3H)*P(5978) 

H2=P(H7)*p(3d)*P(b976)-p(H6)*p(b978) 

AI2*P(H7)*P(39) 

NCABLE = N T E G E R ( 2 1 ) 

IF (NTlGLR( 2M) ) l i 1 • 2 

COMPUTE 1NSTaNT A NEuUS SPRING SHO C N LENGTH 
2 00 180 J = 2*NSPSh 

RPIP2(J) * SwRT ( X k R ( J ) * « 2 ♦ YbR(J)**2 ♦ ZbMJ)**2) 

CSuril(Jl=(XBH(jJ*XBRD(J)+Y d R(j)*Y t iRD(jI^ZBR(0 ) *2D^D(j))/MPlP2ljI 
CSud3(J)«RPIP2(U)-CABlE(J) 


COEE (j) 3 SPKK(J)* CSUb3(J) 

2( J) ) 

CSub2«JI*COEL(JI/RPIP2(J) 

F X 1 J < J) -C5UB2 ( J ) . XBR ( J ) 

F Y 11 i J ) -C5U62 ( J ) • Yb* ( J J 

F Z 1 I 4 J ) * C b U b 2 ( J ) • Z B R ( J ) 

l G C CONTINUE 

FCAbNA»0.0 
SC AbM A *0 • 0 
00 3 U2 J*2.NSPSH 

lF(ABS(C0EE(J)J-FCABMX)300,30u,3ui 
'01 FCABMA a COEE ( J 1 
A A A * J 

*00 IF(Afab(CSUB3(J))-SCABMX)30?.3n2t3u3 
*03 SCABMAaCSUB3 ( J ) 


♦ C0AmP(J)*CSUb 1 lj)*ABb(CSUBl 


U 2 C 0 N T I im U E 

P ( 200 i * F C A b M X 
P ( 699 ) = S C A b M X 

P ( 700 ) *bbb 

P ( S»99t> > * A A A 
1 FX 1 I ( 1 ) *0.0 
FY 1 i ( l ) *0.0 
FZ 1 I ( i ) *0.0 

KP1P21 l J *5QK f t XbR ( 1 ) * * 2 ♦ Y B ;* ( D**2 + ZBKU)**2) 

IF (NTEGEr( 28) ) 3 • 3 » M 
*4 DO b J * I N 0 I » N CABLE 
J J* J-nSPSH 

RPlP2lJ>*SwRT(XdMj)**2 + YBa<J>**2*ZBR(jU*2) 

CSUBllJ>*IXBR(J)«XBKD(J)4YBR(j)*YbK0(j)*ZbK(J)*ZbK04j>)/KPlP2tjl 
C FOR HONEYCOMB 5 T * U T S , C H AN GE THE FOLLuAING STATtHfc.Nl To 
C RAHDMP*0. 

RAmOmP*P ( 622 ) ♦CSUb 1 ( J ) 

CSUb3U)*RPlP2(J)-tABLE<J) 

6 IF ( CSUB3 ( J ) ) 7 ,7 , 8 

B IFlCSUB3(J)-PtJJ+2HB3))9,V.ia 

10 lF(CSUd3(J>-PIJJ+2l83J)l|illt|2 

11 C0fc£{J) s P(JJ + 2bH3McSUB3(J} 

NSTORt J>*1 

GO TO 26 

12 IF(CSUB3 (j)-P(jj+ 23U3))13 .i 3*|H 
1 3 C OLE ( J ) * P < J J + 2^03 ) 

NSTOR t J) *1 
GO TO 26 

IS IFCCSub3<J>-PiJj+22B3))lb.,S,l6 

lb COEE ( J 1 *P(JJ + 2bb3 ) * ( CSUB3 t J > -P ( J J + 2 30 J ) UP < J J + 2 20 3 ) 

NSTORt J )*1 
GO TO 26 

1 6 COEE ( J I *P ( J J + 2263 ) 

NSTORt J)=l 
GO TO 26 

7 IF(-CSUB3(J)+P(oJ+2bOj))17.l7,10 
IB lM-CSU63<Jl-p(JJ*2223ni9.l9,2G 

19 lUEE(j)*P(JJ+ 2563)*CSUB3(J) 

NSTOR ( J ) *- 1 

GO TO 26 

20 IF(-CSUB3tJ)-P(JJ+2363))21.21.22 

2 1 COEE ( J > *-P ( JJt22M3 ) 

NSTORt J1*M 
GO TO 26 

22 IF<-CSUB3(J)-P(JJ + 23M3))23,23,2 4 * 

23 COEE(j)*(CSUBJ(J)+p(jj+2363)>*P<Jj*26U3)-P*JJ*22H3) 

NSTORt Jl*-1 
GO TO 26 

2 H COEE t J > *-P t J J + 2323 ) 

NSTORt Jl*-1 
GO TO 26 

9 C0E£<J>*P<JJ + 25Z3)-Ptjj*23n3>MPljJ>2‘483)-cSUB3ljn+RAMUhP 
NST0R(J)*0 

IF (COEEt J> >2b*2b»26 

C FOR HONEYCOMB S T R U 1 5 , C H A NGE ThE FOLLOWING STATEMENT TO 
C 25 COEE(J)*U. 

IF(C0 EE<J>.LT.<-PUj + 2203 >>)cQEE(j)*-PIJJ* 22U3) 

GO TO 26 

17 CUEE ( J 1 »P « JJ + 26H3 »-P ( jj^2Mn3 ) • ( P t jJ + 2503 J-CSUB3 ( J) ) ♦KAMOMP 
NSTOR t J ) *0 

C FUR HONEYCOMB S TRU TS , CHANGE Th£ fOLLUAIng STATEMENT TO 
C IF (COEEt J) 126,2b ,2b 
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c AND REMOVE STATEMENT NUMBER h 10 
IF<COtEl J) 126,26,810 

4 l 0 If ( COEE ( J I *UT .P l JJ+2283 ) ) COEE < J > = P < Jj + 22^3 J 
C COMPUTE HONEYCOMB SHUCK FRICTION FORCE 

26 I f t CSUB3 { j ) ) 30b » 3QS • 306 
lUB IF(CSuBl(j))307i30B,3Ll9 
^07 FRICF S -P( JJ+268J) 

00 TO 310 

30* FRlCFsQ.O 
vjO TO 3 10 

309 FR I CF =P ( J J + 2663 ) 

00 TO 310 

3 06 IF ( C S U B 1 (J) ) 3 1 1 .306,313 
.311 F*lCF*-P< JU + 2/2J) 
bO To 310 

113 FW I CF = P ( J J*27U3 1 

c modify friction force for lo* strut velocity if necessary 

3 1 0 STvABS'ABSl CS0B1 < J) ) 

IF<STVA6S-U2JH00#H00,H01 

aUO F8 U*SwRT ( S T V A b S / 1 • 2 ) 

(a 0 TO 802 
40l F b U * 1 • 0 

4 U 2 fricf*fbu*fkicf 

FURS! J ) »COEE i J ) ♦F R I CF 

CSUtJ2<J)»F0RS(J)/RPlP2(J) 

F X 1 I { J ) * C S U B 2 l J 1 • X BR ( J ) 

F Y 1 I ( J ) =CSUB2 i J ) • Y B R ( J ) 

FZ1KJ1 * C S U B 2 ( J ) * Z 6 R ( j ) 

5 CONTINUE 

fcabna»o#o 

scabnx=o.o 

DO 27 JalNOI *NCABLE 
IF(ABS1F0RS(J))-FCABNX)20,78,29 

29 FCABNA*FQRS< Ji 
A A A A« J 

28 IF<ABS(CSUB3tJ))-bCABNX)27.27,30 

30 SC ABNX*CSUd3 ( J J 
ribbbaJ 

27 CONTINUE 

P t 9 '/ 9 ) * F C A B N X 
P ( V 8 ] ) * 5 C A B N X 
P ( 982 1 *BB6B 
P I 9 H 3 ) = A A A A 
3 CONTINUE 

return 

END 
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SUBNuU I I N E FOKFUN 

DIMENSION Y < l 00 > . o < 9549 > , NTEGER t BO >iVAK(9999) 

common van 

EQUIVALENCE ( van ( 1 ) . Y ( 1 ) ) . I V aR < 30 1 I » N t EDEN ( 1 ) ) • IV AN ( 45 1 I 
1 .P< t I I 

EQUIVALENCE (P(68l),Al».«PI6B2).a|).(p<6a3J,Cll.Cp(684l,Dl),(P(68b 
»>iEI>i < P<686>.FIIi<P(6871.G|).(P(68B),Nl)»(Pt689)»All>.lp‘690).A2) 
2.lp<64j),B2).(p»692),C2>.«f.«693»,U2»,IpU94».t2>.Ip(69S>,F2».(P<69 
36),52l.lP(697),H2l,(PC698).AI2) 

EQUIVALENCE lP(12a),tGXlHTI,(P(|29).A6YlPT>.‘P<l30I.AG2lP 
1 T I * • P < » 31 J * AGX2PT I • I P U 32 » • AliY2pT ) i ( P ( 1 3 3 » . *&2 2 P T I . ( P I 1 3 
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2 H)iAFXllT>*<Ptl38),AFY2u>i(Pll39|*AFz2lT> 

i , (P ( 1 3 b ) , AFY l IT) . (P ( 1 36 ) , Af’Z l IT 1 . < p l 13/) » AFX2 l I) 

H.CPC5932).FAlG)i<PC5933)tFYl6).»PCS93*lliFZlG) 

1=3 

G 0 ro l 101 » 102 • I 03 I , l 

c THt FOLLOWING AR E PRINCIPAL AxES COMPONENTS 
, U 1 AGxlPr=P(b9SeH*SlN(P(&9?9)*Yll > > 

A6YlPT“P«59571*bINCP(b999»*YU)> 
AGZlPT=P(b9b6»*SIN(P<b999)*Y(l)> 
c The FOLLOWING are symmetry axes components 
AFX1I = P { b 9 H 8 )*SlN(P(S9Hb)*Y ( 1 ) ) 

AFY 1 l =P<b987)*blN(P<S9MS)*Y(l>> 

AF / 1 I =P(b9M6l*bINlP(S9 1 4b)»YU)J 
C T h L FOLLOWING CA*U SrlOULu READ AFX2 i s 0 # U # IT n k S CHaNGEU FOK 
c Test purposes. to A pxz i «- AF x 1 1 
AF *2 1 =0.0 
AFY2 1=0.0 
AF/2 1=0.0 
GO TO 1 

c The FOLLOWING are principal A * e s components 
, 02 AGx2PT 3 P<S9bfcM*SlN(P(S999)*Y(l>) 
AGY2pT-P<5957)*SIN(P<a99V>*Y(l>> 
AGZ2PT a P(b956»«SlN(P(S999)#Y(l)) 

c the following are symmetry axes components 
A F X 2 I «P(b9HB)*SINtP(b99b)*Y(l)) 

A F Y 2 I =P(b947i*SlN(P(59Rb)#Y(l)) 

A F Z 2 1 *P(59R61*SIN(P(S9R&)*Y(1)) 

A F X I 1=0*0 
Af Y l 1=0*0 
AF ll 1*0.0 
GO TO 1 
,03 CONTINUE 
AF X I 1=0.0 
AFY 1 1=0*0 
AF2 1 1=0.0 
AFx2I=0.0 
AFY2I=0.0 
A F'Z2 1=0.0 

c calculate gravity forces on BnTH bodies 

c THE FOLLOWING ARe SYMMETRY AXES COMPONENTS 

1 f X 1 G = P(6)*(A1*P( 125)*B1*P( l 26 I ♦C 1 *PU27l) 

KY1G* PU)*(D1*P( 125)+EI*PU2a)*FI *PU27>) 

F z 1 G= P(6»*(GI*P(1 2b )+Hl*P(l26)+All*P(l27)) 

FX2G = P(22 > * ( A 2 * P t 125 ) ♦ 82 * P l 126 ) ♦ C 2 *P(l27)) 
FY2G*P(22)*(D2*P(125)+E2*P(l2W) 4 ‘F7 * P C i 2 7 > ) 

FZ2G*P<22>*tG2*P<12b)+H2*P<l2A>«-Al2*P(l27>) 

A F X 1 1 T = AFX1 I+FXiG 
AF Y 1 I T = AF Y 1 I ♦ F Y I G 
AF z t IT*AFZ1 I ♦ F Z 1 g 
A F X 2 I T = AFX2 1 + F X 2 G 
AFY2IT-AFY21+FY2G 
AFz2IT=AFZ2 I+FZ2G 
RETURN 


END 


1 K tc < JV > 
C 0 h M 0 n 


bUi3KuuTi*t output 

DIMENSION Y ( IOC) iuYOx I 1 U u ) i P l 9 b h V ) »NTEbEK(bG 


) • Y aH ( V V 9V ) i 


/AK ■ K, N ^ § KFSf 

E&UlvALENCt (VAKC|»,rUII.IVAK(|01»#oro*(J)),«vAl:(JOU. 

NT£G£R(1))i(VAR(‘K1),P(1)) 


R . <p(bv9 1 ) .YCfa) , (plb99u) ,XCti> . tplsVH9 ) ,2t&> . <H<b9fao) ,xoR2c<.) . (P(S9 
So7I.YuR2CG>.IP(b9B6>,/aR2Cr, >,(Plb98b),PSlCAPI»(P(b9b<*),PhICAp) 
£wulVALL N CtlP«b970>.£*2).(p.S969».EY2>.(p<b96 U ),tA2, 

EwUUALENtL tp(6B1, *A|li(P(A8 7 ).eil.(Pl6qj) lC i) 1 (p ( 6BH),pl),( H(663 
l . t I . (PI686) ,F| ) , <P( 6 8 7) ,6| ) . (P( 6 8B) ,HU , <P<689) , Alj > , IPUVol ,A2» 
( ’?fi’! P ' 4,S ' 2) ,C2) • .U2) . 1P(2,V-A) . IP’(oV5>.K2».,p< < £,V 

36) . G2 I • (PI697) i H 2 ) , ( P t 6 9 6 ) . A I <? ) • InT£GEK(32) i NPP ) 

EQUIVALENCE (P I / 66V ) , YHSMX | , (p ( 7670 ) ,NPHs ) . IP ( 7o7 I) . YN 1 rtA ) , 
l(p(7672), N PKl),(p(7673).YR2MX),(p(767<4), N PR2)i(P(767b),YKJMA), 

^ t P < / 6 / 6 ) * N P K 3 ) 
b«b7.29b779b 

0U!l«(PI|0)*uYDAt2)»P(n)* O Y0Al3)*p||2)»|)V0XCVn*a 

OUT/*lP( 13) *DYDX l2)*P| 1 H I aiiYO* «3)*PI lbl*OYOX(V> )»b 

UUr3.lP(16)» U YOA(2l*Pll7). 0 YDx(3)+p(|8)« D YOXt‘))).B 

UUT7*Plb6)«B 
OU T 8»P < b 7 ) • 6 

OUT V*p ( b8 ) *d 

OUTH 3 (P(26)*UYuX(ii ) t P ( 2 7 **DY0X(12)+P(2fl)*0YUX(13))*3 
UUTb c (PI2V)* u r u xlli )+H*3Oi*0YUX(l2l^p(3i ) *OYDx l 1 3 ) )*b 

UUT6 = <P<32)»L>YUxUlM-P<33>*DYDX<l2)+p<3q)*L>YUX(lJ))*a 

out 1 o = p ( bv ) *e 

UU T 1 l =P < 60 > *B 

OUT I 2 *P l 6 1 ) *b 

UU7 1 3=0 *DX { 8 ) • ti 

OUT 1 M = DY0X ( 9 ) • u 

OUT 1 S-UYOX ( 1 U ) *d 

OUT 1 6 * 0 Y D X ( l 7 ) • b 

OU T I 7=0 YOX ( l 8 1 *b 

UU T 1 B«L) YDX ( 1 9 ) *o 

U U T l 9 = Y 1 8 ) • ti 

OU T 2 0 * Y (9 )*o 

0 U T 2 1 3 Y (iU)«b 

UUt 2 2 3 Y ( 1 7 ) *b 

OUT 23* Y ( 1 b ) *b 

0 U T 2 M * r ( 1 9 ) #b 

0 U T 2 b 3 P ( 1 22 1 ) 

0 U T 2 6 *P ( 1 222 > *B 
OU T 2 7 *P ( 1 223 ) • B 

OUT30*DY0X( B ) *p < 5 7 ) • y ( 7)-p( b a)* Y t 6) 

0UT3l=DY0X( 6 ) ♦ p ( S 8 ) • Y ( b > - p < s 6 > ♦ y ( 7) 

OUT32=OYDX( 7 J + p ( 5 6 1 * Y ( 6 )- P (s7>*y( b) 

0UT33 c L»YDxt |HI*p(60l*Y( l 6 ) - p ( 6 1 ) • y < lb) 

UUT3h*DYdx ( 1 b ) + p ( 6 1 ) • y ( 1 M ) - p 1 b 9 ) • y ( 16) 

0UT3b 3 DYDX(l6J4-p{b9)*y{ lb)-p(6 0 )*Y ( 1 M ) 

0UT36*Y(2U)*B 
OUT 37»Y ( 22 ) 

OUT 3 8 3 Y (21 ) * b 


P ( 973 

P ( 97^ 
P ( 9 7 b 
P< 976 
P ( 9 7 7 
P ( V 7 8 


• 0 U T 3 0 

• 0 U T 3 0 
•OUT 30 

• 0 U T 3 3 
•OUT 3 3 

• U U T 3 3 


D1 • 0 u T 3 1 
E 1 * 0 U T 3 1 

FI • OU T 3 1 
02 • 0 U T 3 H 
E 7 • 0 U T 3 H 
F 2 * OU T 3 M 


♦ 0 1 • UUT3 2 

+ Hi • U U T 3 2 
♦All • OU T 3 2 

♦ 02 • 0 U T 3 b 

♦ M2 • 0 U T 3 b 

♦ Al2*UUT3b 



c CALCULATE S T A B I L 1 T Y ANGLE tSANr. IN OUTPUT) 

A I 1 G*P ( b932 ) /P ( 6 ) 

A J 1 G»P 1 b933 ) /P ( 6 ) 

A K 1 G x P I b 9 3 H ) / P { 6 ) 

AllV*Al*DYDX(23)+Cl*DY0X(2O 

AJ)V x UL*DYDX(23)*F1*DY0X(2S) 

AMV*u1*DY0X(23)+AH*OYDx<?5) 

AJINsaK 1 G* A I 1 V-AK 1 v* A 1 1 G 
AK1N*A11G*AJ1V-AI1V*AJ1G 
A1|N*AJIG*AK1 v-AJ 1V*AKIG 
SUb2 = AK 1 N/ A I 1 N 

SUB1=IAJ1N*P(G930)/AI1N)+P ( 96b) 

SUb3* t SUB1 *SUb2-P t 967 i ) / < SuB2**2+i .□ ) 

SUB^ 3t SUBl**2-p(b93l >**2 + P»967>**2>/tSUB2**2M»U) 

A lNTG = SUB3**2-SUbH 
IF ( A 1 N F 6 ) S 1 t S 2 i b 2 
5 1 ST A ANGs- 1 . OE l 0 

go to sa 

b 2 PKl«(bQRT<AlNlG>>MAKiV/ABstAKlV)>-SUb3 
L0SUB=<P(593U**2)-tPKI-Pl967))**2 
IF(E0bUa)60*6Ui61 
60 LOSUB-U • QGGO l 

6 1 p I | ■ ( SORT ( LD SUB ) * A I 1 V/ ABS ( A I 1 V > ) ♦P ( 9 65 ) 

STAANb*ARCOS(ABS((AJlG*P(b930)+AKlG»PKl + AnG*Pin/5^Kr((AjlG**2^ 
lAKlG**2 + AUG* + 2)*iP<5V30)**2 + PKl**2 + Pll**2J)i) 
5TaANG=STAANg/0*01/H&3 
A JABS* ABS ( A J 1 N ) 

AKABS*AdS< AKIN) 

AlABS*ABS(Al IN) 

IF(AJABS-AKAtib>bJ,b3.bH 
b 3 IF ( A K A B 5 » A I ABS )bb i 5 b * b 6 
b H IF{AJA6S-AlABS)bS,bb,b7 
bb Al lNA = AJlG«PKl-P(b930)*AKlr; 

STAANG*STAANG*AIlN*Ab5tAilNA)/(AllNA*AlABb) 

GO TO b 8 

b 6 AKlNA*AllG*P(S9 30 )-PIl*AJlG 

STaANG*STAANg«AIUN*ABS(AK1NA)/1AMNA*AKAbS 1 
GO TO b 8 

b 7 AJ|NA = AKIG*Pli-PM*AIlG 

STAANG s STAANG*AJlN*ABS(AjU.A)/(AjINA*AJABbi 

b a continue 

!F(NTLGER(2b)i3Ul i 30 1 ,302 
•*0 2 NPP*NPP+l 

EL>A = plb9)*p(7 66 6)^Pt6Q)*P(7667)*pl6I)*pl766e> 

EDB»Plb9)#*2+P(60)**2+P(61)**2 

EOC*OUTb*P (7660 )-0UT6*P ( 76 a 7 ) 

E00»0UT6*P(7666)-0UTH*Pt7668) 

L0L*UUT*)*Pl7667)-0UTS*P(7666) 

RLC I 1 I =Y ( 1 ) 

R E C l 2 ) *P 1 H02 ) 

KEC<3 ) * P 1 H 0 3 ) 

REC ( H ) *P 1 H OH I 
REC (b ) *P ( HOb ) 

REC 1 6 ) ap ( H06 ) 

RfcC<7)»P(H07) 

REC<* ) = P ( 6 6 2 ) 

R E C I 9 )»P 1 663 ) 

R E C I 1 0 ) B P I 6 6 H ) 

REC 111 > *P ( 665 ) 

REC* 1 2 ) * p ( 6 6 6 1 
RECl 1 3 ) * p ( 6 6 7 ) 

REC ( 1 H ) ap ( 202 ) 

RECt lb)=P(2Q31 
RECl 1 6 ) ap ( 20H ) 
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RtC < 1 / > *P < 2Db > 

REC < 1 6 ) =P ( 206 ) 

REC ( 1 V ) =P ( 207 j 
RE C ( 20 > a P ( 459 ) 

RE C » 2 1 )sp(H60) 

REC i 22 ) *p ( 44 l 1 
RE C. ( 2 j > 3 P ( 4bQ ) 

REC ( 2 4 ) » Y (23) 

REC ( 2b ) =»Y < 2*4 J 
REC < 26 ) »Y < 2b > 

REC ( 2 7 ) *0UT32 
REC < 26 ) *OUT 3 1 

REC<2V)»SQKT <0Ul3Q**2+0UT3t**2+0UT32**2) 

REC < 3u > ■ SClNT(0UT33»*2*0UT3H**2 + GuT3b««2) 

REC < 3 1 ) *0 YUX { 23 > 

RECl32)-0UT33*EDA*P(b9)-EDrt»P<76 6 A>+El)C»0.01 7 8&J 

REC ( 33 ) =OUT 1 9 
REC ( 34 ) *OYDX ( 24 ) 

REC l35) a 0UT34*tUA*P(6u »-LL>h»P( 766/ )+EUD*0*Ol 7 4b3 

REC(36J»0UT20 

REC ( 3 / J »OYDX { 25 I 

REC<36)*ouT3btEDA # Pt61 »*E0B*P<766b) + EuE*P»01 / 4 b 3 

REC(3V)«0UT21 

*RI TE (9 ) (REC < 1) . 1*1 ,3V ) 

C On T 1 uU E 


!Fl Y< 1 >-p(2) ) 2 0 « b 0 • b 0 
20 IF( Y< 1 )-p(6)i ibUtbO.bu 
* 0 CONTI F* U E 

AR I TE t 6 t 1 OU ) p ( 973 >»Pf97M tip(97b ) ( pl97* ) * P t V 7 7 )»p(9/to )• 

10YDX<23>.DYDxl2‘l)»OYDx t 25),DYDX t 26).DYDX<27>»UYOX<2 & )»Y<23>» 

2Y*2H)»Y<2b>.Yt26l,Yt27).Yl28>, 

3 OUT 1 i 0UT2 » 

4QUT3 , UUT4 • UUTb , QU T6 

ANlTE (6 »206)oUT7»oUT6ioUT9.QUTlQ»uUTl 1 »0uTl2tp(200) , p < S 9 V o ) # p ( 9 7 9 ) 

1 »p(9sj) * p ( 6 9 9 ) * p l 7 00 > •0UT1V.OUT2U.QUT21 *oUT22»0UT23»0UT24 
ARITE* a *207Iy< 1 *»0UT36.QUT37i 0U J3btp(9Hl J # p ( 9 42 ) 

ARiTEi6,208)p(82l)iP(6m),p(ttx 1 ), P (27bl).P(27b2).STAANG 

EMAG 1 * P ( 4 l 7 H ) ♦ p 16999 > 

E M A G 2 “ P l 4 1 75 ) + p ( 7000 > 

EriAG3*P(Hl76)+pt?001 ) 

EMAG4-P(4l77)*Pt7002) 

EMaGS=P(4178)+P(70Q3) 

E R A 6 6 * P ( <t | 79 J +p( 7004 I 

RRirE(6,209)EMAGl > EMAG2,EM 4 G3,EMAG4 f EMAG^#EMAG6 

ARirE<6,2I0)P(7669) #N pHS .P l 767 i ) .NPR 1 . P < 7 6 7 3 ) . N Pft * #P<767b 

l ) i nP R 3 

?10 F0RMAII5H YrlSMElb.8 t 7H NpHS I 1 b i7m YKlMfclb.b,7H NPR 1 1 1 b ,7 

IH YK2MElb.8,7H NPN 2 I 15 /SH YK3Mtlb.8»7rt NPN3 1 lb// / ) 

100 FOnMa T 1 bH X10UEI5.8.7H YlDDElb.H.7H 7lDDtlb.6,7h A 2 0 DU b . b , 7 (JCjOU 1 8 

2H Y2D0E15.8.7M Z2UDE15.8/SH X1D Elb.fl.7M YU) tlb.b,7H i 10 0000183 

3tl5.8.7 H X 20 tiS.8,7 H Y20 E15.8 i 7 H 220 Elb.8/brt Xl E 1 b . 8 , 7 HOOOU 1 8 80 


Yl E15.8.7H 
15.8/ 


E15.« ,7 H 


£ 1 5 • b i 7 h 


£lb.B,7h 


bH OX lOElb.b ,7 


/rt 0YI0EI5*8,7 h 0ZlDElb.8,7H OX2otl5.8.7h 0 Y 2 ot 1 8 • 8 , 7 M 02 

82DLlb.8) 

706 FORMATISH 0X1 Elb.8,7 H Orl E15.8.7H 0 21 Elb.b,7H 0X2 1 1 b . b , / 0 0U0 I 820 

2H 0 Y 2 £ 1 b • 8 i 7 h 022 El&*8/tiH FSMXE18«8»7 h b N0tl8.8,/H F HM A 0 U U 0 1 8 3 0 
3E15.8.7H H NOElb.8,7n sSMXE15.8i7h S NOtlb.B/bN ThI E I b . 8 , 7H0UUU 1 
8 PHI E15.8.7H PSl Elb.a,7H TH2 £lb.8,7H PH2 tlb.b,7H PS2 



?U7 F0KNAM5H T 1 ME E 1 5 • 8 , 7 rt T h B R E 1 5 . a i 7 H p S b K E 1 5 . a , 7 h 
2 H 5HMXtlb.B,7M H NGElb.8) 

?U8 F 0 R M A 1 * 5 H X8RltlS*Q»7h YBRlEl5*b»7H zbRltlb.b»7H 
2H SL3rtElb.8*7H SANGE15.8) 

?U9 F 0 R M a T < b H FXGRElS.Bt7h FYGRtlB.o»7M F ifiRU i> • t 7H 
1H GYGRElb«B, 7h GZ GRE 1 5 . 8 ) 

P ( 8 ) *P ( a ) +P ( 7 ) 

NTEGEK(23)=NTtGER(2J)+l 
I F(NTlGER(23)*2>120. 121.121 
t 2 l wR I TE ( 6 , 1 22 ) 

! 2 2 F 0 R M A T (1 H 1 ) 

N T E GE R ( 2 3 ) *0 

1 20 IF( Y( 1 ) - P(2> ) 150.130*130 

1 30 END PILE 11 
ENu FILE 9 
fbO CONTINUE 
RETURN 

END 


PhbRfc.lS.bi7 
S E 3 P E 1 b • B i / 
GAURtlS.6i7 


SRC9 


SUBROUTINE SIuSHK 

DIMENSION P(9SH9) , VARI9999) ,NTEGek(5Q) 

Common var 

EQUIVALENCE (VaR (M bl ) ,p( 1 ) ) , (P(68),GANBll ) i (p(69) * G A M d 1 2 1 • ( P l 7 U ) , 

1 G A M ti 1 3 ) • (P(7l ) a GAMU2li. ( P ( 7 2 ) iGAMb22) » (P(7 3) • G A M B 2 3 ) • ( P ( 7 ) » G a M 8 
231 >#(P(75)tGAMQ32) »(P(76) • r,AMB33).(P(<(37>,XBP2PL),(P(<(2t)iXBPlPt) l 

3 (P ( 821) ,XB 1 > # ( P ( **2b ) , YBP2 Pl ) . ( P (**29 ) .2BP2PL ) . (P ( **b9 ) .STKOKP) t ( VaR 
*H 301 ) .NTegER ( 1 > * * < NTEGER ( 2n ) *nLATP ) • (p (2751 ) .SEVC3P ) • ( p(2 7*(b ) , tLl 
bcS)*(P(274H) f BKClS*i(p(27*4«i),sClS)i(P(27s3).FECl3P).(P(27H6),AKP5) 
6,(p(H3a),XbP2 M L , »<P t H2M).XbPlML , * ( P (M 3l),YaP2MU>*(pt‘(32Ji26P2ML)* 
7(P(M60)iSTR0KM).lp(H27),XBp2Pi)i(p(M30)iXbp2Ml)» ( NTEgEr l 1 9 ) iNLATM ) 
8 • (p(2752 ) .SEVC3M) . (P(275H ) .FEC 13m) . (P(BH | ) , Ydl * . (P(b6l ) .Zbl i 

C CHECK RIGHT SIDE(+) STRUT 

Xdp2pu*(xaPlPE-Xbl-GAMB2l*YBP2PL-GAMB3l*zBP2PL)/GAMBll 
STR0KP*XBP2Pu-XbP2PI 
I F { STROKP ) 2 i 1 , 1 

1 NL A T P= 1 
GO TO 1 i 

2 IF(SEVC3P-5TR0KP)3,3,9 
H IF(-STR0KP“ELICS)5.5,6 

5 P ( ) * d K C 1 5*STN0KP 
N L a T P c- 1 

GO To 10 

6 P(MH1 )*-SClS 

neatp«-i 

GO TO 10 

3 P<*4H1)»FEC13P-aKPSMSEVC3P-STrOKP) 

NL A T P * 1 

1FIP(H*U ) ) 10. I 1 , 1 1 

10 YBPlPL*YBl +GAM8l2#XBP2PL«.G A MB22*YdP2PL + GAMB32*ZbP2PL 
2bPlPL*ZBl + GAMBl3*X8P2PL*GAMB23*YbP2PL + G A MB33*ZttP2PE 
C POINT P 1 ♦ L IS NOrt COINCIDENT ^ I T h TIP OF LATERAL STRUT 
C COMPUTE FORCES AND TORQUES (SYMMETRY AXES) 

P(8H2)*("1»0)*GAMB1 l ♦ p ( 1 ) 

P (MH3 )•(-! .0 )*GAM81 2*P (MH 1 ) 
p(HMM)*(-1.0)*GAMB13*p(H*41) 

P(**45)«YBP1PL^P(SHM)-ZBP1PL*P(HH3) 

p(‘4MA)»Z8PlPL»P(**H2)-XBPlPL*P( i (HM) 
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p(447J=AriPlPL*Pt843)-TBPlPl*P(442) 

P l 448 ) =ZBP2Pl*P l *14 1 i 

pi 4 4 V ) * ( “ 1 • 0)*Y t> P2PL*Pl44l » 

Ca o ro 12 

1 i DU 7 J= 1 , 9 
7 P ( j*4‘iU ) =0 »C1 
C CHECK LE.pT SIDC(-) STRUT 

12 XBP2MLstXaPlMU-Abl-<3AMB2l*vBP2ML-oAMb31*2tjP2<’1L)/(aAMbll 
STK0Kd = XBP2ML-XbP2M 1 
If- | STKOXM ) 1 3 , 13*14 
1 J N L A T M = 1 
(a 0 TO 20 

14 IF«ST«0KM-StVt3M*l5»lb*i6 

16 IFtSTKOKM-tUCb)l7»17,lB 

17 P ( 450 ) =dK C 1 S*ST KOKM 
N L A T M = - 1 

00 To 19 
1 m P(4S0)=SClb 
hi L A T M = - 1 
UO TO IV 

lb P(4SO)*FtCl3M-AKPS»(SLVC3M-STkOKMl 

N L A T M 55 l 

If ( P l 4 b 0 ) 120»2 (ji lV 

IV YBPlMLsYBl+bAi'1bi2*XfaP2MU^CjAMb22*YbP2hL + GAMt432#ZbP2ML 
ZbPlML = 2Bl 4 ‘UAMBl3*^bP2ML*bAMb23*Y b P2ML + bAnB3J*ZBP2ML 

C P u l N T P 1 - L IS NO »« COINCIDENT ,‘j 1 T h Tip Of LATERAL STRUT 
C COMPUTE fOHCES AND TORQUES (SYMMETRY AXES) 

P ( 4 S 1 J s l • 1 •U)*GAMBl i*P(4SG) 
p ( 4b 2 I * < - 1 • 0 ) *GAMbl2*P(4S0) 
p ( 4b3 ) * < - 1 •U)*C>AMbl3*Pt45G) 

P(454»*YbPlML*P14S3)-ZBPlMi *P l 4b2 ) 

P(4SbjaZBPl^L*Pt4bl )-XBPlH L *P(4b3» 

p<4b6)*XbPlML*Pl4b2»-YBPlML^P(4bl ) 

p ( 4b 7 > *ZBP2ML*P 1 4b0 J 
pl4SBI*(-|«U)*YuP2ML*Pl4&UI 
00 TO 21 
20 DO 22 J*1 * V 
22 p(j*449)«0»0 
2 l CONTINUE 
RETURN 
L NO 


SRC 10 


SUBROUTINE S 0 1 L ^ 

DIMENSION P(9S4V),VAR(999V» t YB2Sll200).Fv0(2UU).Ytt2bloC2U0). 

lNTEOERti>0).AC(200).Xb2RTSt200ttYB2RTSt20n),Zb2RTSt20u)iVtcTb(2oO) 

COMMON VAR 

EQUIVALENCE (vA*(4bl ) , P l 1 ) ) , < P ( 2 7 b 5 ) t X B 2 q S 1 ) , ( P ( 2 7 S 6 ) t Y b 2 U S 1 ) , 

l(p(27b7),Z b 2oSl).(Pt2758) lYB 2sl*l)>»tp<29b8)iFVOU)).tp(31bd), 

2 Y b 2 S 1 0 ( 1 ) I • l P ( 4 1 BO ) t XB2RT S ( 1 ) I . ( P ( *♦ 3 d u ) t Yd2RTS l 1 ) ) » l P l 4BBU ) • Zb2R T b 
3 ( l ) ) , ( P ( 3 7S8 ) . VLCTB 1 1 ) ) 

3 i ( V A R 1 3 0 1 > iNTEGEK I 1 » ) i ( N T E r. E R I 3 1 ) .J) . I P ( 6000 ) * ANG ) , l P l 3*64 ) • A K C ) 

4 » ( p ( 3 9 b B ) , CGO * t < P < 396U t » DEnST Y > • ( P ( 39b9 ) , COO* » < P ( 39 6 l ) , UCONST ) » 

5 I P ( 3 9 6 2 1 ibPOrttRl • t P 13 9 6 3) . hOFF > * l P < 39bb ) , AKN T ) • ( P ( 3 V&6 I • AMO ) • l P ( 3 

6 9 7 0) • A C 1 1 1 )*tpl4l7u)*FSR)«<Pl*H7l ) * F v T ) , ( p C 4 l 7 2 ) »FDAt*tpl4l73 

7 ) , F 0 L ) 

IF ( Y B 2S l ( J ) -Y b 2S 1 U ( J ) 1 1 » 1 • 2 
1 FVS*(GcONST* a c(U)*(-Yb2S11j))#*GPuWEK)/1i.Q447 
uO TO 3 



c 


c 


c 


c 

c 

c 


c 


c 

c 

c 


2 ifS!il!i!r F,lrtt2sl0<JI ‘ ,fl “ 1 ' jl,,AC,j ’ /ll,B ''” 

** F V S = Q • U 
GO TO b 

3 IF ( YB2DS1 110,11,11 
11 FUYNAaO-O 

GO TO 6 

10 DYNAM=0.&»DENSTY» A C(J).AKC.YB2DSl.*2 
C0nE«aKNT»1-YB2S1<J1>»ac<J)/1|.0<»n7 

IF ( C 0 N t - 0 V N A M ) 7 , 7 , d 
1 FDYNA=CONE 
GO TO 6 
d FOYNA»OYNAM 

6 FVT*FvS+FOYN A 

GO TO 9 
b FYT*FvS 

CHtCK FOK OR A G FuRCt ON THE: P A D 
9 IF (F vs ) 1 3 , 1 3 , IH 
13 A F * Q # u 


GO TO 12 

M GAMMA=ATaN2<Zb2KTS(J),XB2RTS(j)) 
BEt«ATAN2<ZB2DSI.Xb2DSl) 
GKAAaGAMMA-BEt 
I F ( X B 2 R T SIJDiS. 16,16 
lb 1 F ( Zb 2RTS( J> ) 1 7 • 1 d , 1 9 
In 7HIRU QUAORA N1 

1 1 IF(GRAA + Mt7l22)20»20»l6 

20 GR A A*GR A A + 6 . 2B3 \ B 
GO TO 16 

in forth quadrant 
19 IF(GRAA-H#7122)16i2|,21 

21 GRA A = GR AA-6 * 2d3 1 a 


GO TO 16 
la ¥VHITE(6,22)J 

iz fo«h»iii?h Cant tell if po,nT|H.S2h 

1RAG is 0 And CONTINUE) 

16 CONTINUE 

CHECK DRAG FORCE CONDITION 

IF(ABb(GRAA)-i,b707)23.13,,3 
have drag force 


IS In QUadKaNT 3 OR H. A bbUMt u 


« s «s,;““.r*m;c ““.' 0 pt ""' ,s s ‘“"“ i ‘-‘ •» " 

6PA«AC5IDE*C0S(GRAA) 


THTO.ARCOSIABSl Y02RTS1 J» )/ u ECTb< Jl) 

HP A* ACS I DE*S I .M ( T HTO ) 
compute FRONTAL (PROJECTED ) ARE* OF POINT 

AE *HPA * WPA 

12 FDl=CO0»0ENSTY.(-YB2Sl (J)|* aF*AN6 

FU2«CU0*0ENSTY*AF»(XB2DS1»»2+2b20SI»»2) 

P 0 * F 0 1 +F02 + AMU.F VT 

compute resultant velocity jm. inertial a -l plane 

TVB2S1 * S Q R T 1 X b2 0 S 1 **2+ZB2D51 • «2 1 

KES F.Y» £ ( U ro? F ° RCE INT ° 1NENT IA>- * AND 2 COMPONENTS 
F0X«(-F0)«XB2US1/TVB2S1 
P02-(-F0).2B2OSl/TVB2Sl 
determine resultant soil Force 
PSR*SwRT (FDX»«2*F0Z»»2*FVT»*2l 
return 
end 
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SRC11 


K U N C T ION S I NE ( X ) 
S I N E = S I N ( X ) 

RETURN 

END 


SRC 12 


FUNCTION A K T N ( X • Y ) 
AK T N = A T A N2 ( X , Y ) 

K L T U R im 

END 


SRC 13 


SUbRQU T I NE GKQFUK 

DIMENSION Y ( 1 UO) »P( 9 b^ 9 ) ,NrEG£W(bu) t V AR * 9 999 * » Y B 2 3 1 < 2 U 0 ) * F PR ( 2 t)U ) 
l.Ab 2 Rl 3 < 2 UO).Y 82 RTSl 2 uO> tZ>* 2 RTS( 2 uO>.vEC T bi 2 UU) 

common yak 

EQUIVALENCE ( v A K ( l ) » Y (I ) ) • I V A R < 3 0 1 * * N T E GtR < I ) * • < V A R < ** S I ) • P < I ) ) . 

I I NTEGEK < b ) » N S K ) . < P < S6 ) lOflX 1 ).<P<S/).OMYl ) i < P < bb ) • UMZ l ) * t P < 2 / S b ) • 

2xB2DSl)»tP<27S6).YU2DSl)»tp(2/S7).ZB20Sl).(pt27bb),Yb2bill)).(P 

3 1 M 1 7 o ) • F S R 1 • ( P M l 7 1 ) . F V T ) • * P < *4 1 7 2 ) i F 0 X > Hplll/i) »FD2» • < P t 3 3 S 8 > , 

MF pR(l)).<p(37SB),vECTbli))*tp(^lHn)iXB2RTS(l> ) » ( P l *)- 3tt O).Yb2RTS*l)) 

B, Ip(HbBO) * Z b 2 k T S < 1 ) » 

EQUIVALENCE {p(68l) l Al).(Pt6Bz).Hl)»tpt 6 ^' i> »Ei).tp(6o‘1),Lil).(p(6ttb 

l).El)*IP<686)iFl).tpt687).Gl). ( P < * 8a) »Hl)*U 1 l6b9)»Ail , » l P l ^ v u)iA2) 

2.lp<6Vl).b2>i<pUV2).C2».tpU9 3>.D2)iiPUV‘4)»E2) # (p(6Y&) f f2),(Pl6V 

36) ,G2) . (PI697) .H2) . (P(6V8) .AI?) 

C INITIALIZE GROUND FORCES AND TORQUES ON bODy 1 TO ZERO 
PUI7H)»0»0 
P ( M 1 7b ) =0 • 0 
P ( M 1 7o ) *0. 0 
p ( H l 7 7 ) *0 * 0 
P I M 1 78 ) «0 . 0 
PIH17V )*OiO 
DO 1 J s 1 • N S K 

C DETERMINE WHICH POINTS ARE b E L 0 W I N t R T I A L * Z PLANE 

YB 2 Sl<J)*Y( 2 *U*bl*P<J'M 582 i+El*P<J*l 782 )+Hl*PlJM 982 > 

I F ( Y 8 2 S 1 ( J ) ) 2 , 3 » 3 

C COMPUTE INERTIAL VELOCITY OF POINTS bELO* X 7 PLANE 
C VELOCITY IN SYMMtTKY AXIS SYSTEM 

2 V E L I * Y (S)-QMZi*PtJ-M782)«‘0MYl*P(J + l982) 
VELJ*Y(6)-0MXl«PU 4 l982)+0MZl*P(j + l b8 Z) 

VELK*Y</) + UMXl*PUM7a2>-0HYl*P(J + lS82) 

C VELOCITY IN INERTIAL sysiem 

X b 2 0 s 1 «Al*vELl+Dl*pELJ^f;l*VFUK 

YB20S1 »B 1 * V EL I ♦£ 1 ♦ V ELU + H I * V ELK 

Z B 2 DS 1 •C1*VEL1 + F1*VELJ4’AI1*VElk 

C CALCULATE position VECTOR from Rc To SlIJ) in inertial coordinates 
SUB l*P( J+1&82)-PI?6&) 

SUB 2 .P l J + l 782 ) -P < 969 ) 
bU b 3 * P < JM 982 I“P <967 ) 

XB2RTS<U)*Al*SUBl+Dl*5UB2+Gl*sUB3 
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YB2KTS»(J»«ttl*SUbl+fcl*bUB2^Hl*SUB3 
Zb2RTStJ)*Ci*SUbl+F 1*SUB2 +a11*SUb3 

VLCTB»U>-5QRT(Xb2RT5(j)**2 + YB2RTsiJ)**2*7b2RTB<JM*2) 

N T E G E K ( J 1 ) = J 
CALL SOIlF 

C TRANSFORM GROUND FUkCLb PROM jNERTIaL AxtS tU BODY 1 AXES 
FDxi=Al»FDX*01*FVT+Cl *FDZ 
F V T l*Ul*FDX + tl*F V T ♦ F 1 *FUZ 
FOZl*Gl*FDX*Hi*FVT+All*FOZ 

C COMPuTt TOTAL FORCES AND TORUhES ON uODYl Due TO GROUND 
P ( m 7H ) sp ( <4 1 7H J + FDX 1 
pl"ii7^i«P(HX7b»)^FVTX 
P ( H 1 76 ) *P ( H I 76 ) + FD/ 1 

ptMl7/)=p(Hi//)+FDZl*p(j^l782)-FVTl*P(J + lVA2) 
phi 7fa)-TUU*p{ J+lb82)+FLiAl*P( J + |V82) 

pl4l7V)=p(Hl/V)+FVTl*P<JME82)-Fuxl*p(J+i782J 
C OETERMlNt The COSINE of THE AnGLE BETWEEN VfCTb and fsk 

CbAb=tFDx*X82RTb(J)+FVT*Yb2Rrs(0)4FD2#zB?KTSTO)^/lVECTb(O)*FsK) 
C DETERMINE SOIL FORCE COMPONENT NORMAL Tu HE a T SHIELD 
P PR I J ) - ( -F SR ) *CSAB 
GO TO 1 

3 Y b 2 S l C J> *0*0 
FPR < J I *0*0 
1 continue 

RlTURU 

end 


SRC 14 


SUBROUTINE RK a M 
DIMENSION T(IUOU) 

COMMON/ ADM/T ,NN, SPACE , KA 1 , 4 1 , A2 , A3# AH f Ab # A7 , MAP ,SSE t YP # nPKN r 
DIMENSION BETtH ) ,SET (H) 

D AT A t Bt T l I > Il*l .H)/2*U.5.1.0iU*Q/*<SETl I I » 1*1 iH>/1.0»Z#^.u*l*U/ 
GO TO <b02.Hlz,b03,Hll ) ,MAP 
c, U 2 N 1 » N N ♦ l 

N2aM*N 1+N1 
N3X N1*N2XNX+N1 
NHXNI =N3XNl*Nl 
NSXN I *NHXNl ♦N i 
N7xNl*N3XNl+NHXiMl 
N10 Xn1*N5XNI+n5XM 
N 1 2XN 1 *N 1 OXN 1 *N2XN 1 
CALL uErFuN 
<4 1 1 LL * 1 
KR= I 
M A P = 2 
I 0 N *0 
RETURN 

H 1 2 DO HIS 1*1 • KR 

L R K * N 3 X N 1 * ( KR- X + 1 ) 

00 Hib J*1 * N 3 X N 1 
LR*LRR+ J 
LRJ*LK-N3XNl 

T ( LR ) * T I LR J > 

4 I S CONTINUE 
4 I M M A p * 2 

IF(KR.GE,H)GO TU HH 
H 1 3 DO 20 I *1 » NN 

1 P 2 N 1 * I +N2XNI 
T ( I P 2 N 1 ) *0*0 


2 0 COM In lit 

X s | 

3 2 0 0 3 b U I a 1 » IMN 

iPN i « i +N 1 
i p ^ K 1 = I ♦ N 2 X N 1 
lPjNt=l«-N3XNl 
ULLV I*SPACt«Tl IPNl ) 
f * I P 2 u 1 ) * T ( I P 2 ini 1 ) ♦ b E T ( K ) * U t' L Y i 
*\bu r(i»-r(ip3.Ni)+iitTtK)*uELri 
I F ( X . ut • H ) GO 10 37 
3 3 M N 1 ) « T ( N M X N 1 )+utT(K)*SPACf 

Call ulwfun 

I^SK + 1 

GO To 32 
3/ OU HO I S 1 iNN 
I P 2 N 1 = I ♦ N 2 X N l 
1P3N1M+N3XN1 
1 PSN 1 = I *Nb A N 1 

CALL OPFAu(T(lPJM)»TtlPbNi ) ,T I lHiNl l/6#n i T I I 1 i T l IPiNl I ) 

HU C 0 N T I n U L 

t { M )sT (N4XN1 ) + b P A C t 
CALL uEPFUN 
IF ( X A 1 • L T • 0 ) ^0 TO bQ6 
c.07 * * = x * ♦ 1 

XPKNT-KPPMM 
b U 6 lFlKAl*CiT«G)fau TO b b 6 
HI T UK ix 

L b 6 I F ( i 0 N • N E « 1 ) o U TO H 1 2 
K £ 1 U K N 
H H 1 ON*Q 

uO MB 1 *i *MN 
i P 3 N l = I ♦ N 3 X N 1 
IPHN1=1+NHAN1 
IP7Ni=i*N/XN| 

IPlUNlal+NlUXi.l 
1 P 1 3 N 1 3 JPIOni ♦ n J a N l 

UEL B SPAc£ # t5^**T( I PH Nt )-b'7.*TljP7 u l)+3/**MjPiUNl)-V,*Tt i Pl3 N i)i/ 
t 2 H • Q 

T l I ) * r ( I P3N 1 i +OLL 
Y P a T ( I ) 

Hfj CONTINUE 

1 i N 1 )-T t N H X N 1 ) ♦ b P A C t 
CALL PEKFUtM 

b st ■ u • o 

X b A X P = 0 
X b A X = u 

UU b 1 1 = 1 » N N 

I HSN I = I ♦NbXN 1 
I P N 1 ■ 1 ♦ M 1 
I PH N 1 = I *NH X N l 
IP2Nl»I*N2AN| 

1 P 7 N l s I * n 7 AN l 
I P i ON 1 * I ♦N 1 UXN 1 
I P3N | = I + N3XN l 

i)tL B SPACE*l9 < « T lIPNl)M9.»rClP‘lNll-b.*T(|PJNl»*TUPluNin/2‘*.U 
YI*T ( 1PJN1 ) + L)LL 
I F { X A I •LQ.Ouu TO 103 
* U M I F ( A B b ( Y I ) • G T • A 1 ) G 0 To 301 
1 U 3 EPblL*ABS<-19.0*(Yl-Tlin/?70.U) 

GO TO 307 

TUI LPblL=AdSJ-l?*0*lYl-T<l))/f27o«0*Yl)) 

T U 7 I F ( K A i .EU.OJGG 10 696V 
GO TO 7 0 H 
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6969 CALL ERROR* YI , 1 ,ERO) 

IF (ERO.LT.EPSILIgQ TO 701 
CiU TO 7 OM 
7 U 1 KB AK P=KBAKP+ 1 
KB AK * i 

7 Q M IF (SS£«(j£ # £PSiL)(jO TO 302 
SSfsEPSlL 

302 CALL OPf'A0< T( |P3N1 ) • TUP&Nt ) *q£L , H I ) . T ( IP2N1 ) ) 
b i continue: 

I F < KB AKP ) 600 . oOu » 60 1 
AO 1 WK I TE * 6 .602 ) KbAKP 

A 02 FORMAT ( i H 13,16 m ERRORS.GO TO RK) 

AOO Call liEKFUN 

IF ( K a 1 .EU.OIGO 1 0 702 
GO TO 70b 

702 IF (KBaK.EQ. 1 )GQ TO 7Q3 
GO TO 39 

703 K 8 A K « U 

GO TO 3*42 

70S I F ( A2 • GT . S5E ) bO TO 3b 

I F ( ABb ( SPACE ) . GT . A4 ) GO TO AMO 

I ON® 1 
GO TO 3 H 2 

35 IF (SSL.GE. a3)gO TO 39 

I F ( ABS ( SPACE i ♦ L 1 • A5 ) GO TO 360 
3V CONTINUE 

l L = 2 
K K a M 
RETURN 

3 m o spacl = space*a; 

GO T 0 I 3 M 1 . 3 M 2 I • L L 
3 M 1 DU SOI 1*1 * N 3 X N l 
IP12 n1*I*N12XnI 
T ( I ) «T ( I P 1 2N I ) 

501 CONTINUE 
5 QM LL* 1 

IF IKaI >603i6q4,603 
aOM K R = 3 

GO TO M l 2 
AG3 K Ra 1 

GO To M 1 2 

3M2 00 3 M 3 I«1 . N 3 X N 1 

IP3N1*I+N3XN1 
T ( I )*T { I P 3 N 1 ) 

3 M 3 CONTINUE 

IF ( 1 0 N • E Q • 1 ) G U TO b 5 5 
GO TO SOM 
5 S S L L * 2 
KK* l 

GO TO M 1 2 
3 <> 0 M A P * 3 
RETURN 

503 00 362 I ■ 1 • N 3 X hi 1 
l P 3 N 1 * I + N 3 X N l 
IP9M*I*nSXNI+nMXN1 
IP12NI=I+NI2XNI 
T ( I P 3 N I ) - T C I ) 

T ( I P V N 1 )*Tt I P 1 2 N l ) 

A 6 2 CONTINUE 
KR = 3 

SPACE*2.0*SPACE 
GO To MlM 
end 



SRC 15 


SUtfHOuT iNi DPFaU < AA .Btt ,CC .uD .EL ) 

UQUbLt PRECISION A 1 | B 1 » C 1 

EQUIVALENCE (Al.A(l)).(Bl.A(3))»((-l»A(b)) 
DIMENSION A ( 6 ) 

D A | A A ( H ) / 0 • 0 / 

A | j ) sm A 
A ( 2 ) = D 6 
A l J ) =CC 
C 1 * A 1 + B 1 
DO* A ( S ) 

E E s A ( 6 ) 

RETURN 

END 


SRC 16 


SUBROUTINE EKKOMYI.I.ERO) 
NN T *U 

YCK * ABS ( Y I ) 

lMYCK.LT.l.QIGU TU la 
LOB* YCK 

11 K N T * K N T ♦ 1 
LOb*LUB / 1 U 

IF ( LQd #EQ.O )GU TO 12 
GU Tq 11 

12 EK0»1U«0*#KNT/1U.0**M 
GU TO 13 

10 IM YCK«Lt • • i E-0 >00 Ty IS 

14 YCK=1U«0*YCK 

IF ( Y C * • 6 E • 1 •UtGU TO 12 
KNT = KNT- 1 
GO TO 1H 

1 5 ERO* * l t- J 

13 RETURN 
END 


SRC 17 


SUBROUTINE RlNGh 

DIMENSION Y(lO0>iP( < ?S<<9),NrEGEKl5u>»VARt9999>,Yb2KM72),Ab2KS!M(72> 

l.Ytj2RSN(72>.2b2RSN</2),VECTBN<72)*FVKIOl72).Yb2KIG(72>.DELEkiUl72) 
COMMON VAR 

EUUIVaLENCEIVaRII > i Y 1 1 ) ) » ( v A R ( 3 0 1 ) * N T E G E R ( 1 ))»tVAK(Hbl).Pll>l % 

1 ( p ( S 6 > • 0 h x 1 > * l P l b 7 > i 0 M Y 1 >.<p(S8),0MZl > • I p l 7 0 U b ) , F S R l 1 . ( P ( 7 0 U 6 ) , 

2FVTR > . < PC 700 / > .FdZK > . ( P ( 70t)8 > . FD Ak ) • (P (5938 > • TrlTo) • (P t 3V6J) « tt OFF ) 

3 i ( p ( 6 V 2 7 ) • Y B 2 H I t 1 > > • ( P < 68Su, > «F VR 1 u ( 1 > ) . (p ( *7 83 ) # Yd2R 1 0 ( 1 ) ) 

H,<p<7231)tl)ELtQU(lM*(Pl7378).VECIBN<l)) t (p<7H&iJ>.Ytt2tfSNUn,lP( 

b7b22).AQ2RSN(i)).(p{7b94), 7 B2RSN(i)) 

EQUIVALENCE { P(6B1 ) , A I ) , ( P| 68? ) ,B I) , ( P(6ai ) .Cl) , (P{ 6«H | ,U] ) , iP(68b 
|>iEl).lP(6B6J,FlJ.<P<687>.Gl).lP(6e8) f Hl).(p(689),All>iIpl6Vu).A2> 

2 i ( P ^ 6 Y 1 > ,b2> i ( p ( 6 9 2 > »C2> . < m < 69 3 > ,u2> , (pt^VR) ,E2> . I P I bVb > .F2> , ( P ( oV 

36) • (a 2 > » I P ( 6 9 7 ) § M 2 > » < P ( 6 9 b ) . a I 2 > 


c initialise ground forces a nu torques on b uDY i to aero 

P</,99V)»0.0 
P(700u)*0.0 
P( /QOl >*Q.U 
P17002)*0.0 
P ( 70Q3) 3 0*0 
P ( 7QQH > *0 • 0 

0 Q 1 J = 1 , 7 2 

C OET^RMINL * H I C H POINTS ARE o E I 0 * I N E k T I A L *Z PLANE 

YB2K I ( J ) «Y < 2H I *bl *P ( J + 656 3 ) +El *P ( J + 663S ) *Nl*P ( J + 6/ Q/ ) 

IF ( Y B 2 R I (J) ) 2 , 3* 3 

C COMPUTE INERTIAL VELOCITY OF POINTS b ELO* X 7 PLANE 
2 VELlR=Y<b)-OM2l*P(J*663SJ*OMYl*P(j+67u7) 

VbLJR = TU)-OMAl*P(J + 6707)+aMZl*P(J^6S6 3) 

VELXR-T 17 ) ♦ G M X 1 *P(J‘*‘663&)" , 0MY l*P(J+6b63> 

XB20R*A1*VELIk«-u 1*V£LJR + G1«VELKR 
Yb2DR*Bl*vELlK*tl*VELJR+Nl«vELKR 

ZB20R*C1*VELIR+FI*VELJR+A11*VELKK 

C CALCULATE POSITION VECTOR FROM R S 1 *2,3 To SiKSl,2*3lj) I w INlKIIaL CU 
C ORDINATES, 

SUBi A = P I J+6S6 J ) - P ( 96b ) 

SU B 3 A = P ( J ♦ 6 7 0 / |-P ( 967 ) 

I F t U-24 ) I 1 . 11 . 12 

11 SU82A=P{J+663b)-Pl678G) 

GO TO IS 

12 IF I J-48 >13*13,14 

13 SUb2A*Pl J+66ib)-Pl678l ) 
b 0 TO IS 

14 SUb2A=Ptj^663b)-p(6782) 

lb X82RSN(J)=Al*SU61A*0l«SUb2A+Gl*SUb3A 
Y B ? K S N ( J)=dl*SUbl A + El *SUB2 a + HI # S U b 3 A 
2b2RSNtJ)=Cl*bUblA+Fl*SUB2A4All*S0B3A 

VECTbN(J)*SQR1 (AbSKSn(J)**2+Yb2RSn(J)**2+Z&2KSN(j)**2) 

IF INTEGER! 1 1 >6001 * 6 (j 0 Q • 6 u U 0 
6nQl IF ( YB2RSNI J) >4.3,3 
4 CONTINUE 

YB2RI A*Yb2RSNl J) 

VECTBI=VECTBNI J1 
Z B 2 R 5 I “ Z B 2 K S N ( J ) 

AB2RSl 3 XB2RSNi JJ 
F'VROI-FVRlQ(jl 
I F ( J-24 >16*16,17 

16 AREAR = P( 6b61 ) 

R 1 R X s p ( 7010) 

RIKYsP(7QU9) 

GO TO 20 

17 IF( J-48) I » • i a , j V 

18 ARE AR = P ( 6bc>2 ) 

R 1 R X = P I 70 I 2 ) 

K1 RY»P ( 701 1 ) 

GO TO 20 

19 ARE AK=P ( 6b63 ) 

R 1 RX»P ( 70 1 4 1 
K1RY*P(7U13> 

20 YB2K0I*YB2RIQ( j) 

YB2IR=YB2RI I J) 

CALL SOILRH Y tt 21R , Y a 2R0I , ArEAR .FVhOI * Yfcj 2 0« *Sb2RSl .XttSRSi ,2bS0R *X b S 

1 DR i YB2KI A.vtCfBl > 

C DETERMINE The COSINE OF the ANGLE BETWEEN VeCTbN and fsri 

CS A Bl' ( ^D XK *XB2RSN(J)4-FVTR*Yb2RSN<J>^FD2R*Zb 2NSN U>>/(VtcTbN(J)» 

1 f SR l > 

C DETERMINE SOIL FORCE COMPONENT NoRM A t TO HE A T SHIELD 
FPRlit-FSRi > * C S A B 1 
IF ( F P K 1 )3»3*S 


5 CO r HTU = C0S { T H T Q ) 

IF (YB^KI|JI-Yt>2KlO(JM6a7»7 

C Hit. fOLLuMNfc C 0 u L u GIVE T R 0 U a L E * H E N C U T H T n IS S M A L L 

6 0£L5lsAdS((Yd^RI(J)-Yb2R10(J))/C01HT0) 
uLLS2-A6S((Fvr<lo(J)*ll*0HMn/(f3 0F>*AKtAR*C0ThTu)i 

0 E L S M 1 «DELSl + u E L 32 

C J tkKNlNt 3 0JL FORCE If SKIN REFLECTS TO I T S PREVIOUS t I L 1 n R l UM POS 
C ITION # |Ya2HIO(j)jASbUML VELOCITY A N 0 POSITION CHANGE Of P T • I N HUV I 
c N g THKO J £ L 3 1 IS -NEGLIGIBLE. 

Call bOlLKi<Yt»2nOi»Ya2KOI»AK£AKiFvROi.YB2UK«Zb2RSltXtS^RMtZb2uft» 
UB2UK.YB2RIA,vECTBl ) 

ACSAbt = CFDXR*Ab2KSMJ)*FVT**Ya2RSNtJl+FC>7K*Zb2RSN(jn/(VECToMj>* 
IfShI) 

FPRL1=<-FSKI I * A C 3 A b 1 

1 F { F P K L l ) 8 , 8 , 9 

8 F P R LI - 0 t 0 
im I I * 1 

GO TO 10 

9 N I I =2 

GO TO 10 

7 0EL3i=A6S< ( i F V R 1 0 ( J J * l l • Cl H a 7 / ( b 0 F F *AKtA«) )»Abb(Yb*Rl0lj)-YB2Ri < o ) 

1 ) ) /COTHIO) 

N I 1*1 

10 CALL GRSTEwlNlI.0ELSl,FPKl 4 RlRXtKlRY,FPHLl t 0tLSMI.0ELtwlI 
Y 8 2 R I ( J ) = Y 8 2 R I (J)»ABS1 DLLE*jI*c0TmT0) 

OEEEtJU ( J ) =OLLE0 1 
6 ri U 0 gO TO 1 

3 YB2K I l J ) =0. 0 

IF { NTLGERI I ) )oGJ2 i 1 i 1 
Ari02 UELEOUl J)*0«U 
i continue 

C EITHER G K • - s T • EQUILIBRIUM V a L i tE S OF Y 0 2 R i l J j have been uETlRhINlo UR 
C ELSE Y B 2 R 1 ( J ) HAS BEEN SET TO Z E k u • A L L 7 ? J VALUES haVE olIN lONSI 

C OLKEU'USE THESE VALUES To dETeRMInE G k 0 0 N U FORCES a N 0 TURoUeS ON 

C BODY 1 * 

UQ 2 1 J* I . 7 2 
I F ( YB2R I C J M 22 . 2 I * 2 I 

22 VELlR = YlS)-UMZl*PlJ*6635>*nMYl*Plj*67L)7) 
VELJR a Yl6I-UMAl*Plj*67a7)+ l ,MZl*P(j + 6&63» 

VELKR"Y t 7 ) ♦Oh A I • P 1 J*6633 )~,iMY | • P ( j ♦ 6 3 6 3 1 

X620r=A1*vLLIh+01*vEljR*G1*vElnR 
YB20R»81*vELIk + EMVLLjK + hi*vELKR 
Ztt2DR«Cl*VELIh*fl«V£LJR*All*VfcLKH 
YB2K 1 A = YB2K5N i J ) 

VEC1Bi*VECTBN(J) 

ZB2RS I “ZB2KSN ( J i 
XB2RSI*XB2kS.N1JI 
FVR0I=FVR10( J) 

IF<J-2H)23.23i2H 
2 3 ARE AK =P ( 6S8 1 ) 

GO To 27 

2 H 1 F ( J-H8 ) 2S , 2S , 26 
2b ARE AR = P t 6 S 6 2 ) 

GO TO 27 

26 ARE AR = P t 6 S 6 3 I 
2 7 YB2RO I *Y62R I 0 t J ) 

Y02 I K* Y82R |< J ) 

Call 30lLRMYd2lK.Yb2KOI,A*EAR.FVKQItYB2oK.Zb2Rbi,Xb2Rbl.ZB2DK.*b2 
lUR.YbZRlA.VEClQi ) 

c TRANSFORM GROUND FORCES FROM INERTIae a*ES TO BUOY l A* E ^ 
FOxlR*Al*Fl)XR + Bl*FVTR*Cl*FoZR 
FVT1R*01*F0XK+E1*FVTR4FI*F0ZR 
FOZ IR»G1*FDXR+HI*FV T R + A I 1 • F D Z W 


c COMPUTE TOTAL FORCES and TORQUES ON b ODYl DHL TU GROUNd-RING INTERACTION 
P ( 699V ) >p { 699V ) + FDX 1 R 
P ( 7 Q Q U ) * P ( /OOG I+FVTIR 
P ( 700 i i 3 P t 70U 1 ) + FDZ 1 H 

P(7OO2>"P<7 0O2>+FU21R»P<J*A63&)"-fvT1R*P<j**7u7) 
P(7G0i) a P<70U3)-FDZlK*PtJ^6563)'*-FuXlk*P(j + 6 7u/) 

P ( 7004 ) *p ( 7004 > ♦FV T 1 R*P < J + 6S6 3 > -FuX 1 K*P l j*66Jb > 

21 continue 
return 

END 
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SUBROUTINE SoiLKI{Y82RI,YB'>RlO.ARLAK*^VRo.Ya^Or<UZBZKSl P Ao2«Sl, 

UB2DHI »XB2DK1 c Yd 2KSI »v£CTb! > 

DIMENSION P < 9b49 ), VAR { 9999 > 
common v a r 

EWUlVALENCEUARtHSl>,p(l))i 1 '(PI600U)»ANG>.(P(396‘4),AivC*.lPt39bb), 
lCGQ) » ( P ( 3 9 6 U ) .OENSTY) , (p ( 39S9 ) ,CDu > * < P t 3*6 1 ) »GC0NbT ) • tp UV62 ) , Gp 
20'AtN).<Pl3963),b0FFJ*(p(39AS).AKNT>»lpt3966)*AMU)*(Pt7 0UbliFbKl>» 
3lp(70U6) , F V T R ) • t p < 7 U 0 7 ) , F 0 7 R > • < P ( 7 0 OB ) • F Q A R > » ( p ( b V 3 b I * T R I 0 ) 

IF ( YB2RI-YB2R10) l *1 .2 

1 FVS*tGCO NS T*AREAR*(-Y(32RI)**GP0'AEK)/I1» 0*4 47 
GO TO 3 

2 F VS*F YRO + bOFF* ( Yti2R I0-YB2K f ) ♦ AREAK/ 11 .OH<47 
I F I F V S ) 4 • *4 i b 

4 F V S * 0 • 0 
GO TO S 

3 IF ( Y B 2 D R I ) 10*1 | » 1 1 
11 FDYNA*0*O 

GO TO 6 

10 DVNAM*0 f 5*DErtSTY*AREAK*AKC.YB70Kl#*2 
CGn£*AaNT* (“Yd 2R 1 ) * A R E A R / 1 j ,04 47 
1 F ( CONE-OYNAh) 7,7,8 
7 FDYNA-CONE 
GO TO 6 

a fdyna=dynam 
6 F VTR*f VS+FD YNA 
GO To V 

5 FVTK*FVS 

C check fob drag force ON the P a D 
9 IF(FVS) 13,13,14 

13 A F * 0 , u 
GO TO 12 

14 GAMMA=ATAN2(2b2KSI,XB2RSI) 

BEE*ATAN2(2B2URl , XB2DR 1 ) 

GRAA«GAMMA-8Et 

IF ( X B 2 R 5 I 115,16,16 

15 IF ( ZB2KS1 ) 17 , 18 , 19 

c In third quadrant 

17 IF(GRAA+S.7122)2Gi20,I6 

20 GRAA = C,RAA + 6*28318 
GO TO 16 

C IN FORTH quadrant 

19 IF«GRAA-4*7122U6i21,21 

21 GR A A*GRA A-6 . 283 1 8 
GO TO 16 

18 ARITE16.22) 

22 FORMAT! 81H CANT TELL IF T M IS R I Nt> POINT IS IN QUADRANT 3 OK 4. A Sb 
1 U ME DRAG IS 0 AND CONTINUE) 


16 CONTINUE 

THT0*AkCQSUBS<Yli2RSII/VLCTbI> 

C CHECK DRAG. FORCE CONDITION 

I F(ABS((,RAA)-l*b 707)23,13,13 
C H A 'Z L 0 H A 0 FORCE 

C ASSUME a K t A A S S I G N t D TO 1 V E N POINT I S S y 0 A R t A w 0 COMPUTE S l u E OF IT 
23 ACS 1 OE = SyR T ( ARE AK ) 

«PA*ACSlDE*COS(ORAA) 
rtP a* AlS I OE*S I N I THTO ) 

C COMPUTE f WONT AL ( PRO JECTEu ) ARE A OF POINT 
AF * HP A ♦ W p A 

12 FDl»c^0*D£NSTY*(-Y62Rl)*AF*AN^ 

FD2*CoO*D£NStY*AF • ( XB20RI**2+ZB2DkI**2 ) 

F D * F D1+Fd2*AMu*F VTR 
TVB2SI*SQRT«Xfa20RI**2^2B2DRI»*2> 
c Resolve o«ag force into inertial x and z components 

FDXR*I-F0)*XB20KI/TVB2SI 
FuZR»(-FD)*Zb2Dk I /T V B£ 5 1 
FSR1=S0 KT(FUXr**2*FDZr**2*fVTr**2> 

RE T U K U 
END 
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SUBROUTINE GRSTLUINl.aELSl.FPRI.KiKX.RlRY.FPKLI.uELShl.uLLtwI) 

GO T0( l ,2 I »NI 

1 XI»(FPRI*RIRX*0ELS1)/IRIRY.0ElSUfPRI*RUX) 

Y I*KIKY*XI / R I K X 
IFlR|i<y-TH 3 ,Hi*» 

3 XI* (FPRl-RlRY ) *OEESI/FPRI 

H U E L E 0 I * X 1 

GO TO IS 

2 IFtFPRI“FPH0lJS,S,6 

5 WRITE (6,7 ) 

7 FORMAT ( 120 H CANNOT COMPUTE GR . -S T • £ UU I L I h • P T . FOR THIS klNb PI. b LC 

Iause fprli is greater than fpri»assume Rigid structure Tms pt> 

DELE 0 I “0 • 0 
GO TO lb 

6 XI*(fP^I*WIRX*oeLSI)/(RIRY*DElSI-kIKX*(FpRlI-FPRI)) 

Y I *R I KY*X l /K I H X 
IFIRIRT-Y1 )tJ,9,V 

9 I F ( Y I -FPRL IT 1 U .H 

10 Xl*FpRLI*DELSMl*RiRX/lRIRY.(DELShI-UELSI)+FPRLI*RIRX) 

^0 TO M 

B I F ( FPRL I -R IKY > 1 1 • 11 • 1 2 

11 X 1 *(RIKY-FPRI)* 0 ELS 1 /(FPRUI-FPRI) 

GO TO M 

12 Y i»FPRL I ♦uELSm I *K IRT / CRI RY« C DELShl - DLLS I | i *R IRA I 

lF(RlRY-Yl)l 3 ,n,lH 

1 H X I *R I RX* Y I /R I NY 
UO TO •* 

13 XI»(RiHY*(DELSI-DELSMI)/FPRLl)*DELSMI 
GO TO M 

lb RETURN 
END 
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SRFO 


SUBROUTINE F I LM ( NN ) 

DIMENSION T< b 0 U ) • 5 2 ( b 0 Q ) , 5 3 1 SOQ)iS4< c,00).5b( b 0 u>*S 6 t bUU ) , 

1 S 7 1 6UQ),HP2< bUQ)»HFj( bO n)*HFS( bOO)»Hjrb( bOQ ) iHfb l bUU>*nFM 

2 bOO>»Tf r 2t bQG)»TF'3( bQQ) i T FM( &Gu>»TK5l S00>»TF6( bUO>«fF7( bOO) 

3 »5K < bU f .Jl»SL< 500 >*Fr 4 bQO » . Fl ^ buQ)*XB2l( SUU)iYo2l( bDU)»2B21 
H( bOQ) » A J 1 ( buO*»AJ2( bO U > . T A 1 l bU0)«lA2( SOU)»REC(39> 

D 1 ML NS I ON 0 t(l 2 *» 02 tl 2 )* 03 (l 2 ). 0 ‘ 4 U 2 ),u&ll 2 )» 06 (U)*u 7 ( 12 ) 
l»0^tUi»o9(l2i.UlO<l2>.OUCl2)*Ol2<l2)»Ol3<l2).OlH(l2i.A2ll2), 

2A3(12) *A4(l2>»Ab(l2> l A6(t2*.A7U2)»A8U2) 

DIMENSION 01 btl 2 J* 016 (l 2 ).Ol 7 (l 2 ), 01 b(l 2 )*QlV(l 2 ), 02 u i l 2 ** 02 lti^), 


1 022 (12). 023 ( 1 2 ) 

U I M E N S I o N a 1 0 ( bOO) | 0 A 1 ( 
lPhll jUQ ) . 2 1 0 ( bOO) iOa! I 

remind v 

N 0 U T = u 

2 IkINN-5U0)3#3»4 

3 N « N W 

N 0 U T = i 
00 TO b 

4 N=»bOO 

N N * N N - b U 0 
b 00 1 J»1 i N 

RE AO ( 9 ) ( REC < I } , l * 1 , 39 ) 

T ( J ) * K E C ( i ) 

S 2 ( J ) * R E C ( 2 > 

53 ( J ) *R£C ( 3 ) 

54 ( J ) “RE C ( 4 ) 

Sb (J)aRtC(b ) 

S6 ( J ) *REC ( 6 ) 

S 7 ( J ) * R E C ( 7 ) 

HE 2 l J 1 * R £ C ( 8 > 

HF 3 ( J ) * R E C ( 9 ) 

MP4 ( J ) 3 R E C (10) 

HF b ( J ) * R E C ( 1 1 ) 

HF 6 ( J ) *R E C (12) 

HF 7 ( J ) 3 REC (13) 

TF2 ( J ) * R E C (3 4 ) 

TF3 ( J ) 3 R E C ( lb) 

T F 4 ( J) 3 REC( 16) 

T F b ( J ) * R E C ( 17) 

T F 6 ( J ) 3 R E C ( 1 8 ) 

TF 7 C J ) »REC (19) 

SR ( J ) 3 R E C 120) 

S L ( J ) *REC (21) 

FR (J) 3 REE(22) 

Ft (J)'*REC123> 

X b ? 1 { J ) *REC ( 2 4 ) 

Y B 2 1 ( J)*REC(2b) 

2 B 2 1 ( J ) * R E C ( 2 6 ) 

AJI ( J) 3 REC(27)/J86.Q9 
A J2 ( J ) *REC ( 26 ) / 386 .09 
T A 1 < J)*REC(29)/3B6.09 
TA2( J)*REC(3U)/JB6*U9 
X 1 0 ( J ) 3 R E C ( 3 1 ) 

OX 1 ( J ) * R E C ( 32 ) / 386 .09 
FH 1 ( J ) * R E C ( 33) 

Y 1 D ( J ) *RE C. (34 ) 

0 Y 1 < J> 3 REU3b)/386.09 
PH l ( J ) *REC ( 36 ) 


bf)0 ) , T H 1 ( BOO ) . Y 1 0 ( 
buG ) * P 5 1 ( bUO) 


b 00 ) . 0 Y 1 ( bOO). 
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L 10 ( J ) = KEC t 3 7 ) 

UZ l < J ) = RE C ( 38 ) / J86 • 0 9 
esnj)=^c(JV) 

1 COM I hue 


DATA 

*2/72MTlMElSLC)..ttTHtS 

J 

CURVE 

F OR 

strut 

UATA 

* 3 / 7 2 H T I ME 1 SEC ) . • • . Th t S 

curve 

FUR 

Stkut 

UATA 

/ 

A4/72HT I ME ( SEC J . . • . TM 1 s 
/ 

AS/ /2HT i ME ( SEC ) • , . • Trt t s 

CURVt 

FOR 

Strut 

UA r A 

curve 

FOR 

strut 

DATA 

/ 

A6/72HT INE(SEC) * « • • T H t S 

i 

CURVE 

F UR 

Strut 

DATA 

/ 

A7/72HTlrtE(SEC) *...TH|S 

CURVE 

FOR 

STkUT 

DATA 

/ 

ul/72HSThUl STROKE-IN. 




OAT A 

/ 

U2/72HSTKU1 H . C . FORCE-LB 

- 



UATA 

/ 

U3/72HSTKUT TOTAL F U R C E - 

LB- 



DATA 

/ 

AG/72 h r i me i sec > 





/ 

DATA U4/72HKlbHl SIDE STRUT STROKl-INCMEs- 
/ 

0 A I A 0 B / 7 2 M L L F T Slot MRuT STR0KE-1NCHES- 
/ 

DATA Uo/72HRloHT S I L) L STKUr FoRCf-Lb- 
/ 

UATA 07/;ZHLlH SIDE STRUT FOkCE-LB- 
/ 

UATA ua/72HXtlAR2 TO C.G.l-jN- 
/ 

UATA OV/72rtYBMKZ TO C • G • 1 - { N - 
/ 

UATA ulO/72HZbAK2 TO C.G.l-IN- 
/ 

UATA 01I/72HKI COMP OK CGI ABS ACCEL-G- 
/ 

DATA UJ2/72HJJ COMP OF CM ABS ACCEL-u- 
/ 

OATA U13/72HSHELL T R A H S • A C r . - o - 
/ 

UATA 014/72HCUUCH T K A N S . A C C . - G - 
/ 

UAjA OlS/72HI,MeRT 1 ALX1D-1N/SEC- 
/ 

UATA U 1 6/72H I NCR T I ALY 1 0- I N/SEC- 
/ 

DATA 01//72HINEKTI ALZ1D-IN/SEC- 
/ 

DATA U18/72HI2 COMP OF AMtTER-G- 
/ 

UATA U19/72HJ2 COMP OF A METER- G* 

/ 

DATA 020/72HK2 COMP OF A METER- G- 
/ 

DATA 02 1 / 7 2 H T H 1 "DEG* 

/ 

DATA U22/72HPH1-DEG- 
/ 

DATA 023/72HPS 1 "DEG- 


2 

3 

4 
b 
6 
7 


CALL U UlKMV(-3tlH«#A2*0l . — rj . T t l 
CALL i* U I K M V ( 2 » l H • iA2,G2,"n,T ( 1 

CALL U 1 K M \M i i 1 H » » A 2 » 0 3 » ■ r i » T ( 1 
CALL WUIKMv(-3,AH*,A3.01,-N,TU 
call w u i k m v ( 2,ih,,a3 # 02,-ha,T(1 
CALL ^ U I K M V ( j,lH* .a3,03,-N»T( I 
CALL uUUHVI-J.IH.iaH.OI i-N»T( 1 
CALL w u I K H v < 2 »IH.iA^02i-m,tU 
CALL ^ U I K M V ( J,lH«»A^,03,-r«,T(l 

CALL wUikmV<"J*1h # • A & • 0 l t • w • T i 1 
CALL ^UIKMV< 2ilH.iAb,02.-xi»T(l 
CALL 0 U I K M V ( 3,lH,,Ab,03 t -t\uT(l 

CALL wUIKMV ( -3 » 1 m» , A 6 » 0 A , - N , T ( 1 
CALL W U I K M V ( 2 t 1 H • » A 6 » 0 2 » ~ <m » T { 1 

call *UIKMV( 3 * A n» • A 6 *03 ,-N , T ( 1 
CALL uUlKHVC-3|lH 9f A7|01 l -NiTU 
Call *uikmv( 2 . 1 h. , a 7 . 02 ,-n , T < 1 
call *UIKMV< 3 , A H. , A7 ,03 ,-n ,T ( 1 
call « U I K M V ( - 2 , 1 H • * A 8 , OH * N . T t l ) 
call vtUlKM*< 2, 1H. , A8,G6,N t T< A ) 
Call v*u i km v < -2 . 1 h * . aw , os , n , t ( 1 ) 

CALL wUlKMV( 2 • 1 H • . A 8 , 0 7 , N , Tl 1 ) 
CALL wJ IKMV < -3 • 1 H. . A8 ,08 ,N.T < 1 ) 
CALL *UlKMV( 2 , AH, , Afl ,09 ,N ,T ( 1 ) 
CALL y U I K M V ( 3 , A H* » A 8 ,01 0 , w ,T ( 1 

CALL wUIKMV»-2,lH*,ABf0lli-NtH 
CALL yUIKMVi 2 • A H, , A8 ,01 2 ,-N, T « 
CALL vmUIKMV(-2,1H,,A8,013,-N,H 
Call uUIkmvi 2 , a h. . as , 01 m , -n . t ( 
CALL *UIKMV (-3i 1H* • A8 ,015 ,h, T ( 1 
call wUIKMV* 2 • IH. , A 8 ,01 6 ,M t T ( 1 
CALL W U 1 K M V ( 3 , AH, , A8 ,01 7 ^ ,T ( 1 

CALL «UlKMV(*3»lri«,Ati,0A8.-N,T 
CALL W U I K H V ( 2tlH.,A8,0l9.-NiT 
CALL OUIKMVt 3* 1H* , Att,02Q,-N,T 
CALL wUIKMVC- 3,1H.,A8,02J ,N,T(1 
CALL wUlKMVt 2,IH#,A8,022.N,T(1 
CALL *UlKMV< 3 t l H* , A8 ,023 ,N ,T < 1 
I F ( NOW r ) 2 I 2 • 6 
h KLTURN 
LND 


,b2< 1 ) ) 

• hF 2 { 1 ) > 

, 7 F 2 l l H 
, b 3 ( 1 ) ) 

• HF 3 ( l ) ) 

• I F 3 ( A H 

• SM ( 1 ) ) 

, h F M ( A ) ) 
.tfmdi 

.bb( 1 ) ) 

, hFb < 1 ) > 
,7Fb( A ) ) 

• b 6 ( 1 ) ) 
*hF 6 (in 

• T F 6 ( 1 ) ) 

, b 7 ( 1 ) ) 

i , m F 7 ( 1 ) ) 
i , I F7 ( l ) ) 
>S* ( 1 ) ) 

,F* (1 ) A 
iSlU)) 
iFum 

. X b 2 1 ( 1 n 

. V t>2 1 ( 1 ) ) 
>,2821(1)) 
i ) , AJ A ( 1 ) ) 
i ) • A J 2 ( 1 ) ) 
i ) , T A 1 ( A ) ) 
t ) i T A 2 l 1 ) ) 

) ,xlO( 1 ) ) 

l.ilUUI) 

( 1 ) , OX 1 ( 1 ) ) 
( 1 ) |0Y 1 U ) < 
( 1 ) ,021 U ) ) 
) ,1H1 ( 1 ) ) 

I ,FHl ( A ) ) 

) ,FSl ( 1 ) ) 


APPENDIX B 


COMPUTER- PROG RAM DATA AND CORRELATION STUDY 


In this appendix, the computer-program input and output data are described. A 
sample problem is included to provide a comparison between computer-predicted re- 
sults and actual test results. 


COMPUTER-PROGRAM INPUT 


The computer-program input, including format and ordering, is described in 
this section. The following fixed-point data should be punched on a single data card in 
the order given. This card should be the first card in the data deck and must be in- 
cluded each time a stacked run is made. The card codes and inputs are punched in 
FORMAT (915). 


Card code 


1 or -1 


Integer value 6 


Integer -£ 19 


Integer < 200 


Input 

Code number indicating the desired loading option for the edge 
rings. The integer "1" is used for rigid edge rings, and the 
integer ”-1" is used for deformable edge rings. 

Number of floating-point values to be input on cards. Number of 
auxiliary differential equations (control equations, etc. ) to be 
integrated in the Runge-Kutta subroutine. This number is now 
6 and may not exceed 18. 

N; the two lateral attenuation struts (couch bumpers parallel to the 
ig-axis) are not included. 

NSK; bolt-circle points are not included. 


Integer < 19 
1 or 0 


Integer < 50 


S-C 4020 output-option code number. The integer ”1” calls for 
14 graphs to be output; the integer "0" omits the graphs. 

NBC 


Code number indicating the desired integration routine. The inte- 
ger "1" is used for the variable-step Adams-Moulton routine. 
(This mode will work only if the two bodies are connected ex- 
clusively with spring-damper shocks. ) The integer ”0” is used 
for the fixed-step Adams-Moulton routine, and the integer ”-l M 
is used for the fixed- step Runge-Kutta routine. (This mode 
should be used for Apollo landing studies. ) 
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Each line of the following data should be punched on a single card in FORMAT 
(15, E 15.0). Data which have a value of zero may be ignored. The order of these cards 
in the data deck is unimportant. Much of the following data will remain constant from 
run to run and can be loaded on an auxiliary data tape to facilitate card handling. This 
procedure will be explained following the data listing. 


Identification number Input variable 

1 Integration step size, sec 


Remarks 


2 Program termination time, sec 


3 

4 

5 

6 


‘iM 

V,i 


v,l 

M 1 


7 


Output data step size, sec 


9 Program start time, sec 


10 

h' 1 i 

11 

r i • h 

12 

VS 

13 

VS 

14 

V S 

15 

V M 

16 

V 4 

17 

V Ti 

18 

V 

19 

! i ’,2 

20 

V ,2 

21 

X k' , 2 

22 

m 2 


\ 


) 


Direction cosines for body 1. 
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Identification number Input variable 


Remarks 


23 

A1 

24 

A2 

25 

A3 

26 

1 2 ‘ 1 2 

27 

VS 

28 

x 2 ' *2 

29 

V 4 

30 

h ‘ T 2 

31 

V *2 

32 

^2 ' *2 

33 

^2 ' ^2 

34 

*2 ' *2 

104 

A4 

105 

A5 

106 

A7 

110 

V T , fps 

111 

V N , fps 

112 

deg 

113 

e l 

114 

*1 

115 

*1 


Nonzero only when the variable-step Adams- 
Moulton integration routine is used. 


Direction cosines for body 2. 


Nonzero only when the variable-step Adams- 
Moulton integration routine is used. 


Temporary values at input time only (must 
be included each time a stacked run is 
made). 
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Identification number Input variable 


Remarks 


143 

144 

145 

140 + 3N 

141 + 3N 

142 + 3N 


222 

221 + N 
242 

241 + N 

119 

120 
121 
122 

123 

124 

125 

126 
127 


*Nh 


N+l 


N+l ) 


X 


p, 1, 2 


P, 1, N+l 

f p, 1, 2 


us 


ws 


P,1,N+1 

\ 


G 2 

*2 


G X 


G Z 


The lowest subscripts must refer to the 
spring shocks, if any. That is, 



X n, SS+1 ’ Y n,SS+l’ Z n, SS+1 


Spring shocks 
(ignore if 

N SS = °>- 


X n, SS+2’ y n , SS+2’ Z n, SS+2 
• • • 

• • • 

X n+r Y n+1’ z n+l 


Honeycomb or 
cyclic- 
deformation 
shocks 
(ignore if 

N = N ss : 

do not in- 
clude lat- 
eral struts). 


Zeros were input for the CM correlation 
study. The computer program requires 
the same values for body 1 and body 2. 
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Identification number Input variable 


Remarks 


140 

141 

142 
262 


Z P,1,2 


261 + N 

Z P,1,N+1 

282 

. P> 2, 2 

281 + N 

X P, 2, N+l 

302 

. P> 2, 2 

301 + N 

Y p, 2, N+l 

322 

Z p, 2, 2 

321 + N 

Z P, 2, N+l 

421 

X P, 1+L 

424 

X P, 1-L 

427 

X P, 2+L > 

428 

Y p> 2+L 

429 

p, 2+L j 

430 

X P> 2-L 

431 

Y p» 2-L | 

432 

Z p,2-L J 

582 

cl 2 

581 + N 

cl n+i 


Components from c. g. ^ to c. g. g- 


Coordinates of the tip of the unstroked 
lateral strut (right couch bumper). 


Coordinates of the tip of the unstroked 
lateral strut (left couch bumper). 
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Identification number Input variable 


Remarks 


602 

CK 2 ) 


601 + N gs 

CK N,SS+1 J 

^ Spring shocks (ignore if Ngg = 0). 

622 

CD 2 

Spring shocks (ignore if N gs = 0). When 

cyclic deformation is used, Cg,p is 
punched instead of CD„. 

621 + Ngg 

cd n, SS+1 

Spring shocks (ignore if Ngg = 0). 

965 

X AR 1 

X AR and Z AR must 1)6 e< l ual to their cor 

966 

K 

< 

[ responding values for a vector from 

^ c.g. j to point RC along the ij- and 

967 

Z AR 

kj-axes, respectively. 

968 

X RC 


970 

fi x, 1 


971 

n , 
y, i 


972 

a , 

z, 1 


980 

£2 a 

x, 2 


981 

a 0 

y,2 


982 

Q z,2 


983 

H i, i 


982 + NSK 

X S, 1, NSK 


1183 

Y 

.8,1, 1 


1182 + NSK 

Y S, 1, NSK 


1383 

z s, 1, 1 


1382 + NSK 

Z s, 1, NSK 
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Identification number 

Input variable 

Remarks 

2743 

SC1S ' 



2744 

BKC1S 

Couch-bumper 

shocks; positive sign 

2745 

EL1CS 



2746 

AKPS j 



2747 

SEVC3P 

Couch-bumper 

shock; negative sign. 

2748 

SEVC3M 

Couch-bumper 

shock; positive sign. 

2749 

FEC13P 

Couch-bumper 

shock; negative sign. 

2750 

FEC13M 

Couch-bumper 

shock; positive sign. 

3958 

CGO 



3959 

CDO 



3960 

DENSTY 



3961 

GC0NST 



3962 

GPOWER 



3963 

BOFF 



3964 

AKC 



3965 

AKNT 



3966 

AMU 



3967 

FA 



5180 




5179 + (NSK + NBC) 

4 nsk+nbc 



5930 

XR 



5931 

HEATB 



5935 

A RSI 



5936 

ARS2 
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Identification number 

Input variable 

2184 

ELlT N, SS+2 ' 

2183 + (N - Ngg) 

EL1T N+1 

2204 

ST1 N, SS+2 

2203 + (N - Ngg) 

« t1 n + i 

2224 

EL1C N, SS+2 

2223 + (N - Ngg) 

EL1C N+1 

2244 

SC1 N, SS+2 

2243 + (N - Ngg) 

S C1 N+1 

2264 

ST2 N, SS+2 

2263 + (N - Ngg) 

s t2 n+i 

2284 

EL3T N, SS+2 

2283 + (N - Ngg) 

el3t n+i 

2304 

EL2T N, SS+2 

2303 + (N - Ngg) 

EL2T N+1 

2324 

SC2 N, SS+2 

2323 + (N - Ngg) 

s c2 n+i 

2344 

EL3C N, SS+2 

2343 + (N - Ngg) 

EL3C N+1 

2364 

EL2C N, SS+2 

2363 + N - Ngg) 

EL2C N+1 

2384 

AKT N, SS+2 

2383 + (N - N ss ) 

AKT N+1 


Remarks 


Honeycomb shocks (ignore if 
N - N OC! = 0); positive sign, 
ss 
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Identification number Input variable 


Remarks 


2404 


AKP 

N, SS+2 

2403 + 

<N - Ngg) 

Akp n + i 

2424 


SEVT3 N,SS + 2 

2423 + 

< N - V 

S E V T 3 n+ i 

2444 


SEVC3 N,SS + 2 

2443 + 

(N-NSS* 

SEVC3 n+ i 

2464 


EEM13S N,SS + 2 

2463 + 

- N SS> 

FEM13S., , 
N+l 

2624 


FEC13S N,SS + 2 

2623 + 

(N-Ngg) 

fec13s n + i 

2664 


FFNSP N,SS + 2 

2663 + 

< N - N SS> 

ffnsp n + i 

2684 


FFNSN N,SS + 2 

2683 + 

C - N ss> 

ffnsn xt , 

N+l 

2704 


FFPSP N, SS+2 

2703 + 

- N SS> 

ffpsp n+i 

2724 


FFPSN N,SS+2 

2723 + 

<N - V 

ffpsn n+i 


) Honeycomb shocks (ignore if N 
positive sign. 


N SS " 0); 


'j Honeycomb shocks (ignore if N - Ngg = 0); 


positive sign. Initial conditions; ignore 
if the shocks are in the equilibrium 
position. 


Honeycomb shocks (ignore if N - N gs = 0); 

negative sign. Initial conditions; ignore 
if the shocks are in the equilibrium 
position. 

Honeycomb shocks (ignore if N - Ngg = 0); 

positive sign. Initial conditions; ignore 
if the shocks are in the equilibrium 
position. 


Honeycomb shocks (ignore if N - Ngg = 0); 

negative sign. Initial conditions; ignore 
if the shocks are in the equilibrium 
position. 


A 


\ Honeycomb shocks (ignore if N - Ngg = 0); 
f positive sign. ° 
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Identification number 

Input variable 

Remarks 

5937 

ARS3 


5939 

hh 


5940 

NOOR 

Must be less than or equal to 20. 

5941 

NOTHT 

Must be less than or equal to 40. 

5942 

LBC 


5943 

E 

Must be 31.818 X 10 6 . 

5944 

V 


5992 

*1 


5994 

T 1 


5995 

*2 


6501 

?1 


6500 + NOTHT 

^NOTHT 


6541 

r l 


6540 + NOOR 

r NOOR 


6561 

AREA1 


6562 

AREA2 


6563 

AREA3 


7009 

FR1 } 

i 

} Must be greater than 0. 0. 

7010 

DR1 j 

I 

7011 

FR2 ' 


7012 

DR2 

> Must be greater than 0. 0. 

7013 

FR3 


7014 

DR3 J 
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Identification number 


Input variable 


Remarks 


7015 

X S,1,RS1,1 


X S, 1, RSI, 24 


X S, 1, RS2, 1 


X S, 1, RS2, 24 


X S,1,RS3,1 

7086 

X S,1 , RS3, 24 

7087 

Y 

.S,l , RSI, 1 


Y s,l, RSI, 24 


Y S,1,RS2,1 


Y S, 1,RS2, 24 


Y S, 1,RS3, 1 

7158 

Y S, 1,RS3, 24 

7159 

7 

.S, 1, RSI, 1 


Z S, 1, RSI, 24 


Z S, 1,RS2,1 


Z S, 1,RS2, 24 


Z S, 1,RS3,1 

7230 

Z S, 1,RS3, 24 

7666 

ACCEL 2,i,2 

7667 

ACCEL 2> . 2 

7668 

ACCEL 2,k,2 


\ 


\ Points on the edge rings must be numbered 
j as indicated in figure 13. 


J 
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To facilitate data handling, any of the preceding floating-point data may be stored 
on tape by using an auxiliary program similar to that given in the section of this appen- 
dix entitled "Auxiliary Program for Storing Data on Tape. ” Note that the data tape in 
this case is defined to be scratch tape 13. The tape includes data for the Weber couch 
and data for a particular set of cyclic -deformation struts. The tape has been retained 
in the NASA Manned Spacecraft Center tape library and is available for use on any 
subsequent runs. The integers used to identify the data are stored in the N array, 
beginning with N(29) = 3. The corresponding data are stored in the P array, such 
that the P subscript is equal to the N subscript. If, for example, the value of 

is to be changed from 29. 066 to 30. 0, then card 5 must be changed to P(32) = 30. 0. 

The computer program can then be executed, and a new data tape will be generated. 

The data tape is read into the computer for each computer run made (stacked or 
single). Each computer run will have regular card-input data. Any data on the tape 
that are to be changed for a particular computer inn may simply be included in the 
card input for that run. These card data will replace the corresponding tape- data 
items for that computer run only, not for any succeeding stacked runs. 

A new tape may be required to incorporate changes in the data. If a new tape is 
needed, the desired changes can be implemented as follows. Input data which are not 
on the current data tape include items 1, 2, 7, 9, 11, 12, 13, 15, 16, 17, 27, 28, 29, 
31, 32, 33, 110 to 115, 125, 126, 127, 970, 971, 972, 980, 981, 982, 2424 to 2643, 
2747 to 2750, 3958, 3959, 5930, 5931, 5992, 5994, 5995, 7666, 7667, and 7668.' These 
data must be entered on cards. Any data that do not change for stacked runs may be 
entered only at the first run, with the exceptions of items 110, 111, and 112, which are 
entered each time. Zero values need not be included in the data cards. 

To summarize, data for the first of a series of computer runs must include 
either a card or a value on the data tape for all nonzero floating-point parameters, as 
well as the card of fixed-point data. Card data for succeeding runs may omit any non- 
zero floating-point data (other than items 110, 111, and 112) which remain unchanged 
from the preceding run. Changes in tape data are entered on cards with each computer 
run, along with the fixed- point- data card. 


COMPUTER PROGRAM OUTPUT 


Table B-I provides a key to the computer-program- output symbology. Time 
histories of the first 68 dependent variables (X1DD to NPR3 in table B-I) will be 
produced by the system printer for each computer run made. In addition to this fixed- 
output format, an optional form of output is available through the use of the high-speed 
microfilm recorder. This option is controlled by the seventh fixed-point number on 
the first data card of each run and consists of 14 data graphs of special interest. (See 
the section of this appendix entitled "Computer Program Input. ") 

The stability angle SANG (fig. B-l) is computed by the computer program at 
each time step. The computer program first establishes plane R, which contains the 
inertial horizontal velocity vector and the gravity vector G. Next, the location of 
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point P is determined. The vehicle is considered to be unstable if G falls outside 
of P (if /3 < 0). If R does not intersect the heat-shield rim, point P does not 
exist, and the vehicle is unstable in a lateral toppling mode. 


SAMPLE PROBLEM 


The data used for the sample problem were taken from the Apollo command 
module 009 drop test (NASA Manned Spacecraft Center impact test number 31, 

March 7, 1968). Initial conditions and axis orientation are shown in figure B-2. The 
input data for the run and the data which were read from the data tape are given in 
table B-II. All other data were read from cards. The pattern of points used on the 
heat shield is shown in figure B-3. A sheet of printed output is shown in figure B-4, 
and 14 microfilm- recorder graphs are shown in figures B-5 to B-18. The computer 
results for struts 2 to 5 indicated that strokes were less than 0. 14 inch, or below the 
sensitivity of the drop-test instrumentation. Because the test data indicated zero 
strokes for these struts, the computer results may be considered to have correlated 
with the test results for struts 2 to 5. The test results for struts 6 and 7 are super- 
imposed on the appropriate portions of the computer output (figs. B-9 and B-10) to in- 
dicate the degree of correlation between the simulated impact and the actual test. 
Figure B-14 compares measured values of certain absolute acceleration components 
(j and kj of c. g. with the values predicted in the computer output. 
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AUXILIARY PROGRAM FOR STORING DATA ON TAPE 


This section is the auxiliary program for storing the floating-point data on tape. 
To minimize the number of pages in this report, two pages of computer listing are 
shown on each page of this section. To properly order the listing, the right column 
should follow the left column. 


DIMENSION P C 1 307 ) , N ( 1 307 ) 

P ( 
P < 

72)*92. 61300 
73 )-92. 61300 

P< 

29)* 60276.0 

PC 

79 ) *”22. 2000 

P( 

30)* 68700,0 

PC 

75 ) *” 22 • 2000 

P ( 

31 )» 5*4096,0 

P c 

76>*91. 06900 

P ( 

32)* 29.066 

p ( 

77 ) *9 1 .06900 

PC 

33)* .IOOOOOOOe* 

PC 

78)*-6. 97600 

P ( 

39)* . 1 0000000E 1 

PC 

79 )«-6. 97600 

P C 

35 > * .lOOGOOOOEl 

PC 

80 ) *60.85000 

P ( 

36)* 959.0 

p < 

8 1 ) *60*85000 

P ( 

37)- 1379.0 

p l 

82) *”11*85 

P( 

38 ) * 113*4.0 

PC 

83)* 19.65 

P ( 

39 ) * 2.569 

PC 

89 >*-10*85 

P ( 

90)* .lOOOOOOOEl 

PC 

85)- 13.65 

P ( 

91)* « 10000000E 1 

PC 

86 ) *- 1 0 • 85 

P ( 

92)* • 1 OOOOOOOE ) 

PC 

87)- 13.65 

P< 

*43)*-t .9 

P c 

88 ) »”6 . 258 

P< 

99)* 5.3 

PC 

89)«-6.258 

P ( 

95 ) * 18.5 

PC 

90)* 3.353 

P< 

96)* .979 

PC 

91 )* 3.353 

P( 

97 )*-36. 195 

PC 

9 2 ) -” 1 3 « 007 

PC 

98)* 5.537 

PC 

93)--13.007 

PC 

9?)*-. 979 

PC 

99 ) * 28.1 

p < 

50)*”36» 195 

PC 

95)- 28.1 

PC 

51 )- 5.537 

P c 

96 ) -”29 .095 

PC 

52)* 1.899 

p ( 

97 ) *-29 • 095 

P c 

53 ) *-33.96 1 

PC 

98 ) * 6.062 


PC 5*4 ) * .8819 

P( 5S)-”1.899 
P< 56)*-33.961 
p( 57)* .sen 
p ( 58 ) * . 379 
PC 59 ) * 19,993 

p( 60 ) *”36 • 289 
PC 6 1 ) *- . 379 
PC 62)- 19,993 
PC 63 ) *“36 • 289 
PC 6*))-- 19. 2290 
PC 65)* 19.2290 
PC 66 ) *” 1 *4 • 1 9 30 
PC 67)* 19.1930 
PC 68)- -12.632 
PC 69)* 12.6320 
PC 70*35.23700 
PC 71J-3S. 23700 


PC 99 )* 6.062 
PC 100 ** 42.00000 
PC 101 ) -- 92.0000 
PC 102 )- * 43 . 9 
p < 103 ) -- 1 1 .288 
PC 109 )*- 9. 12 
P C 1 05 ) *” 90.6 
p< 106 ) 1 1 .288 

P C 107 ) *”9 • 1 2 
PC 108)* 36.629 
PC 1 09 ) ■ 36*629 
PC 1 )0 )■ 3*4 • 025 
P C 1 1 1 ) * 3*4 .025 
P ( 1 1 2 ) * 39.079 
PC 1 13)* 39.079 
PC 1 19) -0 • 000000 
PC 1 1 5 ) *”37 .2000 

P C 1 I 6 ) *6 ,6 

PC 117)“ .17690000E 3 
PC 1 1 8 ) *6 625 • 000 
PC 119)- .16000000E5 

P C 1 20 ) *•*♦ 1 *40600 
PC 121)“ .I6000000E5 


PC 122)*. 1900000 
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P( 123)-. 1900000 
P< 124)-. 2*453000 
P< 125)-. 2153000 
P( 126)-. 2046000 
P( 1 27 ) » . 2046000 
P( 1 28 ) -3040. 000 
P ( 1 29 ) -3040 . 000 
P< 130=3924.000 
PI 1 31 ) =3924.000 
P( 1 3 1 )«3924«0 
P( 1321-3274.000 
P< 133)»3274.000 
P( 134)-, 1900000 

P ( 1 35 ) « • 1 900000 
P< 136)-. 2*153000 


P< l 37 )-. 2453000 
P< 138)-. 2787000 
P< 139)-. 2787000 
P( l*«0)-3040.000 
P( 1 ** 1 ) =3040.000 
P ( l *12 ) -3924 .000 
P< 1 13 ) -3924 .000 
p< 1 44 ) =4459 .000 
P( l4b) = 4459 .000 
P< 146)- . 1 OOOOOqOe 7 
P< 147)- . I OOOOOCOe 7 
P( 148)- .lOOOOOO&E? 
P( 149)- . 1 0000000 £ 7 

P( 150)« . 1 OOOOOOOE 7 
P( 151)- .10000000^7 
P( 152)-I6. 20000 
P1153)-16. 20000 
P< 154)- .16200000^2 
P( 155)- • 1 620Q000E2 
P ( 1 56 ) = 1 8 .20000 
P( 1 S7 ) - 1 8 . 20000 
P( 158)-16. 00000 
P< 1591 = 16.00000 
P( 160)* .16000000^2 
P( 161)- .16000000E2 
P(|62)-18. 00000 
P( 163)-18, 00000 

. 1 00000C0£ 7 

. 1 OCOOOOOe? 

. 1 OOOOOOOE 7 
. 10000000^7 
. 1 OOOOOOOE7 

• 1 OOOOOQOe 7 


p ( 

164)* 

Pi 

165)* 

p i 

166)- 

Pi 

167)* 

p i 

168)* 

p i 

169)- 


P ( 

170)* 

. 1 2 000Q00e 1 

P ( 

17 1 )- 

» l 2000000E 1 

P ( 

172)* 

. 1 2000000E 1 

P i 

173)* 

• 1 20Q0000E 1 

P ( 

174)- 

. 52000000E 1 

P i 

175)- 

. 52000000E 1 

Pi 

176)* 

» 1 OOOOOOOE 1 

P ( 

177)* 

. 1 OOOOOOOE 1 

P ( 

178)* 

. 1 OOOOOOOE 1 

P ( 

1 79 ) r 

. 1 OOOOOOOE 1 

Pi 

180)* 

. SOOOOOGOe i 

Pi 

161 )* 

. 500000C0E 1 

Pi 

182)- 

» 1 60000 00 £5 

Pi 

183)* 

• 1 6000000E& 

p ( 

184)* 

. 1 6000000 E 5 

p ( 

185)* 

• 1 6 0G0Q00E 5 

p ( 

186)* 

. 16000000E5 

p < 

18 7)* 

. 1 60000 00 E 5 

p ( 

188)- 

. 1 6000000 E& 

p < 

189)- 

• 1 6000000E5 

p ( 

1901* 

• 1 6000000E5 

pi 

1 9 i ) * 

• 1 6000000 E5 

p < 

192)* 

. 1 6000000 E5 

p i 

193)* 

. 1 6 000000E 5 


P( J94)=147Q» 000 
P ( 1 95 ) « 1470.000 
P< 1 96 ) * 1 540 . 000 
P ( 1 97 ) • 1540.000 
P< 198)«690.0000 
P( 1 99 ) -690 . 0000 
P(200)-1470.000 
P ( 20 1 1-1470.000 

P ( 202 >-1540. 000 
P(203)-1540» 000 
P ( 204 ) =690.0000 
P ( 205 ) -690.0000 
P ( 206 ) - 1 470.000 
P ( 207 ) » l 470.000 
P ( 206 ) =1540.000 
P(20?)«1540, 000 
P1210)«2500.000 
P ( 2 1 1 ) -2500 .000 
P(212)— 1470. 000 
P(213)=1470.000 
P< 21*0*15 40.000 
P1215 J-1540.000 
P ( 2 16 ) *2500.000 



p(2l7>«2500«000 

Pi 2 J 8 ) * • 58*4GOCdCE" 1 

P< 219)- .60000000^2 

P( 2 20 ) * • 3 7 0000Q0E0 

P( 221)* • 2Q000CQ0e^ 
P( 222 )* • 1 7 800000E 2 
P( 223)* .360000P0E 1 * 
p( 22*))* .2SOOOOOOEO 
p( 225)* .57S8S0G0E0 
p( 226 ) *000*00 
p< 227 ) *000* 90 
P( 228 ) *00 l • 79 
PI 229 ) *003*53 
p( 230 ) *005 • l 7 
P( 231) *006 » 6 <4 
P( 23 2 ) “007 *92 
p( 233 ) *009 • 7 I 
p( 23*))*0»0.33 
P( 2 35 ) *009 • 7 1 
P( 236 ) *007 #92 
P( 237 ) *005 # 17 
P( 2381*003.53 
P( 239)*001»79 
P( 2*)0 ) *000 • 00 
P( 2*) 1 )*-01 .79 
P( 2*4 2 )*-03.53 
P( 2*) 3 ) *-05 .17 
P( 2*4 *4 ) *-07 • 9 2 
P( 2*)5)*-09.71 
P( 2*46) *“10.33 
P< 2*47 )*-09.7 1 
P( 2 *4 8 ) *.- 0 7.92 
Pi 2*49)*“06.6*4 
p( 250)*“05.17 

pi 25 1)* -3.53 
P 1 252 ) * -1*79 
P( 253)* “0.90 
pi 25*41*000.00 
P( 255)* 1*80 

P( 256)* 3.59 

P( 257)" 7.07 

P( 258)* 10.33 
P( 259)* 13.29 

p( 260)" 15.83 
P( 261)* 19. <42 
P( 262)* 20.67 
PI 263 )* 1 9 . *42 

PI 2 6 <4 ) ■ 15.83 


Pi 

265)" 

10*33 

p< 

266 ) * 

7.07 

P( 

267 )* 

3.59 

Pi 

268 ) *000.00 

Pi 

269 )* 

-3.59 

Pi 

270)* 

-7.07 

Pi 

271)*- 

10.33 

Pi 

272 ) *“ 

15.83 

p { 

273)*- 

19. H2 

Pi 

27*4)* — 

20.67 

Pi 

277)*- 

13.29 

Pi 

276 ) *- 

15.83 

p ( 

275)*- 

19.^2 

P(278)*-10.33 

Pi 

279 )* 

-7.07 

PiZ 80>*-3 

.59 

P( 

281)* 

-1 .80 

P( 

282 ) *000.00 

P ( 

283 )* 

2.70 

Pi 

28*4 ) * 

5.38 

Pi 

285 )* 

10.60 

P ( 

286 ) " 

15.50 

P ( 

287 )* 

19.93 

P ( 

288 ) * 

23.75 

P ( 

289 )* 

29.13 

P ( 

290)- 

31.00 

Pi 

291 )■ 

29.13 

P ( 

292)* 

23.75 

Pi 

293 ) * 

15.50 

Pi 

29*4 ) * 

10.60 

Pi 

295)* 

5.38 

Pi 

296 ) *000.00 

Pi 

297 )* 

-5.38 

P ( 

298 ) * 

-10.60 

Pi 

299 ) ■ 

-15.50 

Pi 

300)* 

-23.75 

p i 

301)* 

-29.1 3 

p ( 

302)* 

-31.00 

p< 

303)* 

-29.1 3 

p( 

30*4 ) * 

-23*75 

p < 

305)* 

-19.93 

p < 

3C6 ) ■ 

-15*50 

p i 

307 )* 

-10*60 

p < 

308 )* 

-5.38 

p( 

309)* 

-2.70 

Pi 

310)* 

000.00 

p ( 

311)* 

3.60 

p ( 

312)* 

7.18 


PC 

313)* 

ih 

. IH 

PC 

314)* 

20 

.67 

PC 

315 )* 

26 

.57 

pc 

3 16)* 

31 

.67 

p t 

317)* 

30 

* 8 H 

p( 

318 )* 

HI 

* 3 H 

pc 

319 )* 

30 

* 8 H 

PC 

3 20)* 

31 

• 67 

PC 

321 )- 

20 

.67 

Pi 

322 )* 

IH 

. IH 

Pi 

323 ) * 

7 

• 16 

p i 

324 ) * 

000 

.00 

Pi 

325)* 

-7 

• IB 

p ( 

326 ) * 

-l H 

. 1 H 

PC 

327 )* 

-20 

.67 

PC 

328 ) * 

-31 

♦ 67 

p ( 

329 ) ■ 

-30 

• 8 H 

Pi 

330)- 

-HI 

. 3H 

Pi 

33) )* 

-30 

. 8 H 

Pi 

332 ) * 

-31 

.67 

p l 

333)- 

-26 

.67 

p ( 

334 ) * 

-20 

.67 

p ( 

335>» 

-IH 

• IH 

p c 

336 ) * 

-7 

• 18 

p ( 

337 ) - 

-3 

.60 

PC 

338 ) - 

000 

.00 

p ( 

339)* 

H 

.50 

PC 

340)* 

8 

♦ 97 

PC 

341 )■ 

17 

♦ 67 

PC 

342 ) - 

25 

• 8 H 

P ( 

343)* 

33 

• 21 

PC 

344 ) * 

39 

• 58 

p ( 

3M5 ) * 

H 0 

♦ 5S 

p < 

346)* 

51 

♦ 67 

p t 

347 )* 

H8 

.55 

PC 

348)* 

39 

• 58 

PC 

34 9 )« 

25 

• 8^ 

p l 

350)- 

17 

.67 

P < 

351 )■ 

8 

.97 

PC 

352)- 

000 

• 00 

p < 

353)- 

-8 

.97 

PC 

354)- 

-17 

• 67 
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p< 

977 1 *0.012 

930 1 *0 

050 

p ( 

9781-0.012 

9311*0 

050 

Pi 

9791*0.012 

9321-0 

050 

pi 

9801*0.012 

9331*0 

030 

pi 

961 1*0.012 

9381*0 

020 

pi 

9821*0.012 

9351*0 

020 

p i 

9831*0.012 

936 1 *0 

012 

p ( 

9881*0.012 

9371*0 

01 2 

p ( 

985 1*0.012 

9381*0 

012 

p < 

9861*0.012 

9391-0 

012 

Pi 

9871-0.012 

9801*0 

012 

Pi 

9881*0.012 

9811*0 

012 

p { 

989 1*0.012 

9821-0 

012 

p ( 

9901*0.012 



p ( 

9911-0.012 
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P( 992)-0*012 

P (109 1 ) 

o 

• 

00 

■ 

P( 993I-CI.Q12 

PI 1092 ) 

28.0 

P< 999)*0.012 

P< 1093) 

6.0 

P( 99 5 ) *0 • 0 1 2 

P ( 1099 1 

5.0 

P( 996 ) *0*01 2 

P< 1095) 

10.0 

P( 997>*0.012 

P ( 1096 ) 

20.0 

P( 998) *0 • 0 1 2 

P< 1097) 

30.0 

P< 999 ) *0 • 0 1 2 

P( 1098 > 

<40.0 

P< 1000)»0.012 

P< 1099 ) 

50.0 

P( 1001 )*0.012 

P( 1050) 

70.0 

P< t 002 ) *0 ♦ 0 1 2 

P ( 105 1 ) 

90.0 

P( 1 00 3 ) *0 • 0 1 2 

P< 1052) 

110.0 

P< 1 009 ) *0 • 0 1 2 

P ( 1053 1 

1 30.0 

P< 1 005 ) *0 • 0 l 2 

P ( 1059 ) 

150.0 

P< 1 006 ) *0 • 0 1 2 

P( 1055 ) 

160.0 

P< 1 007 ) *0 • 0 l 2 

P < 1056 1 

l 70.0 

P< 1008J-0.012 

P( 105 7 ) 

180.0 

P( t 009 ) *0 » 0 1 2 

P< 1058) 

190.0 

P ( 1 0 1 0 ) *0 • 050 

P ( 1059 1 

200.0 

P ( 101 l )-0.050 

P( 1060) 

210*0 

P ( 1 0 1 2 ) *0 • 0&0 

P( 1061 ) 

230.0 

P( 1013) *0 • 050 

P ( 1 062 ) 

250.0 

P 11 01 M) *0 • 050 

P( 1063) 

270.0 

P( 1 0 1 5 ) *0 • 050 

P( 1069) 

290.0 

P( 1 0 1 6 ) *0 » 050 

P( 1065) 

310*0 

P( 1017) *0 • 030 

P( 1066) 

320.0 

P( 1018)»0.020 

P( 1067) 

330.0 

P( 1 0 1 9 ) "0 • 0 1 2 

P( 1068) 

3M0.0 

P( 10201-0*012 

P( 1069 ) 

350.0 

PI 1021 )a0*0l2 

P< 1070) 

355.0 

P( 10221-0*012 

P( 1071 ) 

360.0 

P( 10231-0.012 

P< 1072) 

10. 33*4 1 

PI 1029 1-0*012 

P( 1073) 

20.66828 

PI 1 025 ) -0 . 0 1 2 

P ( 1079 ) 

31 • 002 *4 2 

P< 1026) *0*012 

P< 1075) 

Hi .33656 

P( 1027 1-0.012 

P ( 1076 ) 

51.67070 

P( 1028 )*0*012 

P( 1077 ) 

58. *43300 

PI 10291-0*012 

P< 1078) 

66. 1 385 

P( 1030) -0 • Q20 

P( 1079) 

72.3390C 

P ( 1031 )-0.030 

P( 1080) 

87.2 

P( 10321*0*050 

P( 1061 ) 

87.0 

PI 1033) -0 • 0&0 

P( 1082) 

77.6 

P ( 1039 ) *0 ♦ O&O 

P( 1083) 

88.5 

P( 1 035 ) -0 • 050 

P( 1 089 ) 

17.0 

P< 10361-0.050 

P( 1085) 

-22. H 

P( 1037)*0.050 

P( 1086 ) 

2500.0 

P ( 1038)- 2*0 

P( 1087 ) 

3.6 

P( 1 039 ) -3 . 1S18 E 7 
PC109Q)- 0.261 

P( 1088) 

2500.0 
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PI 10891*3.6 
P ( 1 QvO 1 *2500 ,0 
P( 1091 ) *3 « 60 
P ( 1092 ) *0.0 
P( 10931*19.22 
P( 10981*37. 13 
P( 10951*52.50 
P( 10961*6*1.30 
P( 10971*7 1.72 
p( 10981*7*1.25 
P( 10991*71 .72 
P( 1 1001*6*1.30 
P( 1 101 1*52.50 
P< 11021*37.13 

P( 1 1031*19.22 
P( 1 10*11*0.0 
P( 1 105>*-1 9.22 
P< 1 1 06 1 *"37 . 1 3 
P( 1 107)«-52.50 
P ( 1 1 08 1 *-6*1 . 30 
P( 1 1 09 1 *"7 1 .72 
Rill 1 0 I *-7 1 • 25 
PU1 1 1 1 * - 7 l .72 
Pill 1 2 1 *-6*1 . 30 
Pill 131--52.50 
P ( 1 1 1 1 1 *-37 . 1 3 
PC 1 1 15)*— 19.22 
P( 11 161*0.0 
P ( 1 1 1 71*19.61 
Pill 181*37,88 
P{ 1 1 191*53.56 
P< 1 1201*65.60 
P ( 1 1 2 1 1*73. 1 7 
P< 1 1 221*75.75 
P< 11231*73.17 
P ( 1 1 2*1 1 *65.60 
P ( 1 1251*53.56 
P( 1 126 1*37.88 

P< 11271*19.61 
P ( 1 1 28 1*0.0 
P< 1 1291--19.61 
PI 1 1 30 1 *-37 .88 
P ( l 131 1 *-53 » 56 
P ( 1 1 32 1 *-65 , 60 
P( 1 1 3 3 1 *-7 3 . 17 
P ( 11 3*1 1 *-75.75 
P ( 1 135 1 «-73. 1 7 
P< 1 136) *-65 .60 


p ( 


137) 

*-5 3.56 

p ( 


138) 

*-37.88 

Pi 


139 ) 

*-iy .61 

p ( 


1 HO ) 

•o.o 

p i 


1 H 1 ) 

*19,23 

p ( 


1 H 2 ) 

*37,15 

p ( 


1 H 3 ) 

*52.53 

p ( 


1 HH ) 

*68 . 3H 

p < 


185) 

*7 1.76 

Pi 


1 H 6 ) 

*78.29 

p i 


1 H 7 ) 

• 7 1.76 

p< 


1 H 8 ) 

*68.38 

p ( 


1 H 9 ) 

*52.53 

Pi 


15Q) 

*37,15 

Pi 


151 ) 

*19,23 

p ( 


1 S 2 ) 

■0.0 

p< 


153) 

*-19.23 

Pi 


1 5 M ) 

*-37. 15 

p ( 


1 5 & ) 

*-52.53 

P( 


1 56 ) 

*-68.38 

p ( 


157) 

*- 7 1 .76 

p ( 


158 ) 

■-78.29 

p ( 


159) 

*- 7 1 .76 

p < 


160) 

*-68.38 

p ( 


1^1) 

*-52.53 

Pi 


U2) 

*-37. 15 

Pi 


163 ) 

*-19.23 

Pi 


l 6 H ) 

*16.88 

Pi 


t 6 S ) 

*16.88 

Pi 


166) 

*16.68 

Pi 


167 ) 

•16.88 

Pi 


166) 

■16.88 

Pi 


169) 

*16.88 

Pi 


170) 

■ 16.88 

p ( 


171) 

*16.88 

Pi 


172) 

■16.88 

Pi 


173) 

*16,88 

p ( 


1 7 H ) 

■16.88 

p< 


17 5) 

■16.88 

P( 


176) 

*16,88 

P( 


177) 

*16,88 

p i 


178) 

*16,88 

p ( 


179) 

*16.88 

P( 


180) 

*16.88 

Pi 


181 ) 

*16.88 

Pi 


182) 

■16.88 

Pi 


183) 

*16.88 

Pi 


1 8 H ) 

*|6.88 



PC 1 18S)*I6.88 
P( 1 l 86 ) * 1 8 • 88 
P< 1 1 8 7 ) * 1 6 • 88 
P < 1 1 88 ) *2 I .07 
P< 1 189) *2 1.07 
P ( 1 1 90 ) *2 1 .07 
P C 1 19 t ) *2 1 .07 
P( t 1921*21 *07 
PC 1 1 93 ) *2 1 .07 
P( 1 19*0*21.07 
PC 1 1951*21 .07 
PC 1 1961*21.07 
PC 1 1971*21.07 
PC 1 1981*21.07 
PC 1 1991*21.07 
p < 1 200 1*21.07 
PC 1201 1*21.07 
PC 12021*21 .07 
PC 12031*21 .07 
P ( 1 20 4) *2 1 .07 
PC 12051*21 .07 
PC 12061*21 .07 
PC 12071*21 .07 
PC 12081*21 .07 
PC 12091*21.07 
PC 12101*21 .07 
PC 121 1 1*21 .07 
PC 12121*25.0 
PC 12131*25.0 
PC 12141*25.0 
PC 12151*25.0 
PC 12161*25.0 
PC 12171*25.0 
PC 12181*25.0 
PC 12191*25.0 
PC 12201*25.0 
PC 1 221 1*25.0 
PC 1 2221*25.0 
P ( 1 2231*25.0 
PC 12241*25.0 
PC 12251*25.0 
PC 12261*25.0 
P < 1227 1*25.0 
PC 12281-25.0 
PC 1229 1*25.0 
P C 1 230 1 *25 .0 
PC 1231 1*25.0 
PC 12321*25.0 


PC 1233) 

25.0 

PC 1234) 

25.0 

PC 1235) 

25.0 

PC 1236) 

-74.25 

PC 1237 ) 

-71.72 

P < 1 238 1 

-64.30 

PC 1239) 

-52.50 

PC 1240) 

-37.13 

PC 124 1 ) 

-19.22 

PC 1242) 

0.0 

PC 1243) 

19.22 

PC 1 244 ) 

37.13 

PC 1245) 

52.50 

PC 1246) 

64.30 

PC 1 247 ) 

71.72 

PC 1248) 

74.25 

PC 1249) 

71.72 

PC 1250) 

64.30 

PC 1251 ) 

52.50 

PC 1252) 

37.13 

PC 1253) 

19.22 

PC 1 254) 

0.0 

PC 1255) 

-19.22 

P < 1 256 1 

-37.13 

PC 1257) 

-52 .50 

PC 1258) 

-64.3 

PC 1259) 

-7J.72 

PC 1260) 

-75.75 

PC 1261 1 

-73.17 

PC 1262) 

-65.60 

PC 1263) 

-53.56 

PC 1 264 ) 

-37.86 

PC 1 265 ) 

-19.61 

PC 1266) 

0.0 

P < 1 267 1 

19.61 

PC 1268 ) 

37.88 

PC 1269) 

53.56 

P C 1 270) 

65.60 

PC 127 1 ) 

73. 17 

PC 1 27 2) 

75.75 

PC 1273 ) 

73.17 

PC 1 274 ) 

65.60 

P C 1 275 ) 

53.56 

PC 1 276 ) 

37.88 

PC 1 277 ) 

19.61 

P ( 1 278 ) 

0*0 

P ( 1 279 ) 

-19.61 

PC 1280) 

-37.88 

PC 1281 ) 

-53.56 


P< 1282)*-6S.60 
P( 1283 ) *-73. I 7 
P( 128** >*-7 **.29 
P( 1 285 >*-71.76 
P< i286)«-69.39 
PI 1287 ) *-52.53 
P( 1286)*-37. IS 
PI 1289) *- 1 V • 23 
P( 1 290 ) *0.0 
P < 12 9J ) * 1 9 . 23 
P( 1292 » - 3 7 • IS 
P( 1293)«S2.53 
PI 1299)*69,39 
P( 1295 ) -7 I . 76 
P( 1296)«7H.29 
PI 1 297 1 -7 1 .76 
P( 1298»«6M.3*4 
P{ 1 299 ) *52.53 
P< l 300 ) * 37 . 15 
P( 1301 1*19.23 
PI 1 302 ) *0.0 
P ( 1 303 ) *- 1 9 . 2 3 
P( 1309)*-37. lb 
P( 1 305 ) *-52 .S3 
P< 1306) *-69.39 
P( 1 307 > *-7 1 .76 
N( 29)* 3 

N ( 30)* 9 

N ( 31)* S 

N ( 32 ) * 6 

N ( 33 ) ■ 10 

N ( 3**>* 1 9 

N ( 35 ) ■ 18 

N ( 36)* 19 

N ( 37)- 20 

N ( 38 ) * 2 1 

N ( 39 ) * 22 

N ( **0 ) * 2 6 

N 1 9 1 1 - 30 

N< ** 2 ) * 3*1 

N ( ** 3 ) * l **0 

N( 99)* 1*41 

N ( *lb>* 1*12 

N ( *16)* 193 

N ( 97)* 199 

N ( 98)* 195 

N < 99)- 196 


N ( 

50 ) * 

1*47 

N < 

5 1 ) * 

me 

N< 

52)* 

1 *49 

N < 

53 ) * 

1 BO 

N ( 

59)* 

1 & 1 

N ( 

55)* 

152 

N i 

56)* 

153 

H ( 

57 )* 

15*4 

N< 

58)* 

155 

N ( 

59)* 

156 

N ( 

60 ) * 

157 

N ( 

61 )* 

158 

Hi 

62)* 

159 

H ( 

63 ) * 

160 

N < 

69 )* 

222 

N ( 

65 )* 

223 

N< 

66)* 

22*4 

N ( 

67 ) * 

225 

N ( 

68 ) * 

226 

N ( 

69 ) * 

227 

N ( 

70)* 

2*42 

Hi 

7 1)* 

2*43 

H ( 

72 ) * 

2*4*4 

N < 

73)* 

2*45 

N ( 

79 ) * 

2*46 

H ( 

75)* 

2*47 

Hi 

76 ) * 

262 

Hi 

77)- 

263 

Hi 

78 ) * 

26*4 

H i 

7 9)- 

265 

N ( 

80 ) * 

266 

Hi 

8 1)- 

267 

H ( 

82 ) * 

28 2 

N i 

8 3)* 

283 

H ( 

8 9)- 

28*4 

Hi 

85 ) * 

285 

H ( 

86)- 

286 

N< 

87 )• 

287 

N ( 

88 ) ■ 

302 

N< 

89 )* 

303 

N ( 

90 ) = 

30*4 

N ( 

9 1)- 

305 

H i 

92)* 

306 

H < 

93 ) ■ 

307 

N ( 

9** ) - 

322 

Hi 

95 ) * 

323 

Hi 

96 ) - 

32*4 

Hi 

97 )- 

325 



N ( 98>* 326 

N< 991* 327 
N( 100)* **2 1 
N< t 0 I 1 ***2*1 
N ( 102)* *)27 

N ( 103)* 928 

N ( 10*0* 929 

N( 105)* 930 
N ( 106)* *131 

N ( 107)* **32 

N( 108)* 582 
N ( 109)* 583 

N ( 110)* 58*) 

N ( 111)* 585 

N< 112)* 586 
N< 113)* 587 
N( 118 1* 965 
N ( 115)* 966 

N ( 116)* 967 

N ( 117)* 968 

N ( l 181*2793 
N( 1 191*2799 
N( 1 20 ) *27*15 
N ( 1 2 1 1*2796 
N ( 1221*218*1 

N ( 1231*2185 

N ( 1 2*1 ) *2 1 86 

N ( 1 25 > *2 1 87 

M 126)*2188 
N ( 127)*2189 

N ( 1 28 ) *220*1 

N ( 12?) *2205 

N< 1 30 ) *2206 
N( 131) *2207 
N ( 132) *2208 

N( 1331*2209 
N( 1 3*1 ) *222*1 
N( 1 35 ) *2225 
N ( 136)*2226 

N ( 137 )-2227 

N( 138 )«2228 
N ( 1 39 ) *2229 

N< 1901*2299 
N( 1 *1 1 ) *22*15 
N ( 1**2>*22*16 

N ( 1 *13 ) *22*17 

N ( 1*1*1) *22*18 

N( 1*15)*22*19 


N( 1 *16 ) *226*1 
N ( 1 *17 ) *2265 

N ( 1 *18 ) *2266 

N ( 1*49 1*2267 

N< 1 50 ) -2268 
N( 1511*2269 
N( 1 52 ) *228*) 
N( 1 53 ) *2285 
N ( 1 5*1 ) *2286 

N( 1S5)*2287 
N( 1 56 ) -2288 
N( 157 ) *2289 
N< 1 58 ) *230*1 
N ( 159) *2 305 

N ( 160) *2306 

N( 1611*2307 
N( 162) *2308 
N ( 163) *2309 

N( 1 6*1 1 *232*1 
N ( l 65 ) *2325 
N< 1661*2326 
N ( 167 ) *2327 

N< 1681-2328 
N ( 1 69 ) *2329 

N ( 1701*23*1*1 

N< 1711*23*15 
N ( l 72 ) *23*16 
N ( 1731*23*17 

N( 17*41*23*18 
N ( 1 751*23*19 

N ( 176>*236*1 

N ( 1 7 7 ) * 2365 

N ( 1 78 ) *2366 

N ( 1 79 ) *2367 

N ( 1 6 0 > *2368 

N ( 1811*2369 

N ( 1821*238*) 

N ( 1 83 ) *2385 

N< 1 8*1 ) *2386 
N( 1851*2387 

N ( 1861*2388 

N ( 187 ) *2389 

N ( 1 88 ) *2*)0*) 

N( 189) *2*105 
N ( 1 90 ) *2*106 
N( 1911*2807 
N ( 192) *2908 

N ( 193)*2909 


N ( 1981*2669 
N ( 1951*2665 
N ( 1961*2666 
N( l 97 ) *2667 
N ( 1981*2660 
N( 199 ) *2669 
N( 2001*2689 
N ( 20 l ) *2685 
N ( 202 ) *2686 
N ( 203 ) *2687 
N ( 20** ) *2688 

N ( 2051*2689 
N ( 2061*270** 
N ( 2071*2705 
N ( 2081*2706 
N ( 2 091*2707 
N« 2101*2708 
N ( 2111*2709 
N ( 212 1*27 2** 
N ( 2131*2725 
N< 21*+ 1*2726 
N< 2151*2727 
N ( 2161*2728 
N< 2171*2729 
N( 2181*3960 
N ( 2191*3961 
N 1 2201*3962 
N ( 221 1*3963 
N ( 222 1*396** 
N ( 2231*3965 
N( 22** 1*3966 
N< 22 51*3967 
N ( 2261* 983 
N( 227 1* 98** 
N ( 2281* 905 
N< 2291* 986 
N< 2301* 987 
N ( 2311* 988 
N ( 232 1* 989 
N ( 2331* 990 
N ( 23** 1 * 99 1 
N < 2351* 992 
N ( 236 1* 993 
N ( 237 1* 99** 
N ( 238 1* 995 
N ( 2 3 9 ) ■ 996 
N( 2**0 1 ■ 997 
N< 2<* 1 1 * 998 


N ( 

2** 2 1 


999 

N( 

2 ** 3 1 


1000 

N ( 

2*1*0 


1001 

N ( 

2 ** 5 1 


1002 

N( 

2 ** 6 1 


1003 

N ( 

2 ** 7 1 


100** 

N ( 

2**8 1 


1005 

N ( 

2** 9 1 


1006 

Nl ( 

250) 


1007 

N ( 

25 l 1 


1008 

N ( 

2 52 1 


1009 

N( 

253 1 


1010 

N < 

25*1 1 


1011 

N ( 

255) 


1012 

N ( 

256) 


1013 

N ( 

257 1 


101** 

N ( 

258 1 


1015 

N ( 

259 1 


1016 

N ( 

260 1 


1017 

N ( 

261 1 


1018 

N ( 

262 1 


1019 

N ( 

263 1 


1020 

N ( 

26*1 1 


1021 

N ( 

265) 


1022 

N( 

266 1 

S 

1023 

N( 

267 1 

a 

102** 

N < 

268 1 


1025 

N ( 

269 1 


1026 

N < 

270 1 


1027 

N ( 

271 1 


1028 

N( 

272 ) 


1029 

N ( 

273 ) 


1030 

N ( 

27*1 1 


1031 

N( 

275 ) 


1032 

N ( 

276 ) 


1033 

N ( 

277 1 


1039 

M( 

278 1 


1 U35 

N ( 

279) 


1036 

N( 

280) 


1037 

N ( 

281 1 


1038 

N< 

282) 


1039 

N ( 

283) 


10**0 

M ( 

288 1 


10** 1 

N ( 

285 1 


1 0**2 

K ( 

286 1 


1 0** 3 

N( 

287 1 


10**9 

N( 

288 1 


1 0**5 

N ( 

289 1 


1 0**6 

N( 

290) 


1097 

N( 

29 1 1 


1098 

N ( 

292 1 


1099 


M ( 2931-1050 

N< 

N ( 2941*1051 

Hi 

N ( 2951-1052 

N ( 

N< 2961*1053 

N ( 

N1 2971-1054 

N ( 

N ( 2981-1055 

N ( 

N< 2991*1056 

N( 

N< 3001*1057 

N( 

N ( 30 l 1 - 1058 

N ( 

N ( 3021-1059 

N ( 

N( 3031*1060 

N { 

N( 3041*1061 

N ( 

N< 3051*1062 

N ( 

N ( 3061*1063 

N ( 

N ( 3071-1064 

N ( 

N( 3081-1065 

N( 

N( 3091*1066 

N ( 

N ( 3101*1067 

N ( 

N ( 3111*1068 

N < 

N< 3121-1069 

N < 

N( 3131-1070 

N< 

N( 3141*1071 

N ( 

N ( 3151*1072 

N( 

N ( 3161-1073 

N ( 

N( 3171-1074 

N < 

N ( 3181*1075 

N ( 

N< 3191-1076 

N ( 

N< 3201-1077 

N< 

N ( 321 1*1078 

N ( 

N( 3221-1079 

N ( 

N( 3231-1080 

N ( 

N ( 3241*1081 

N ( 

N ( 3251-1082 

N ( 

N( 3261*1083 

N ( 

N( 3271*1084 

N ( 

N < 3281*1085 

N ( 

N( 3291*1086 

N( 

N( 3301-1087 

N( 

N ( 3311*1088 

N ( 

N ( 3321*1089 

N ( 

N< 3331-1090 

N ( 

N< 3341-1091 

N ( 

N ( 3351*1092 

N ( 

N ( 3361-1093 

N ( 

N< 3371-1094 

N ( 

N ( 3381*1095 

N ( 

N< 3391-1096 

N ( 

N ( 3401*1097 

N( 

N ( 34 i 1-1098 



3421*1099 
3 *4 3 ) * I 100 
3441*1101 
3451*1 102 
3 4 6 ) * 1 103 
3471-1 1 0 ** 
3481*1 105 
3491*1 106 
3501*1 107 
3511*1108 
3521-1 109 
3531*1 1 10 
3541*1 1 1 1 
3551-1 1 12 
3561*1 1 13 
3571*1 1 1 9 
3581*1 1 15 
3591*1 1 16 
3601*1 1 17 
361 1-1 I 18 
362»*1 II 9 
3631*1 120 
3641*1121 

3651*1 122 
3661*1123 
3671*1 124 
3681-1 125 
3691*1 126 
3701*1127 
3711-1128 
3721-1129 
3731-1 130 
3741-1131 
3751*1132 
3761*1 133 
3771-1 134 
3781-1 135 
3791-1 136 
380 1*1 137 
3811-1138 
3821*1139 
3831*1140 
3841*1 141 
3851*1 1 42 
3861-1143 
3871-1144 
388 1-1 145 
3891-1 146 




NC 

39o) 

197 

N< 

39J ) 

198 

N ( 

392) 

199 

N ( 

393) 

1 1 SO 
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N ( 10841-6521 
N< 10651*6522 


N< 1066) *6523 
N< 1 067 ) *652*1 
N< 1 068 ) *6525 
N ( 1069 )*6526 
N( 10701*6527 
N < 107 1 ) *6528 
N< 1072 1*65*41 
N ( 1073 1 *65*42 
N( 1 07 H 1 *65*4 3 
N ( 10751 *65*4*4 
N< 1076 1 *65*45 
N ( 1077 1 *65*46 
N ( 1078 1*65*47 
N< 1079 1*65*48 
N ( 1 080 1 *656 I 
N ( 1081 1 *6562 
N< 10821*6563 
N ( 10831*5935 
N ( 108*4 1 *5936 
N ( 10851*5937 
N( 10861*7009 
N< 1067 1*7010 
N( 10881*701 1 
N< 10891*7012 
N( 10901*7013 
N( 1091 1*701*4 
N ( 10921*7015 
N ( 10931*7016 
N( 109*4 1 *701 7 
M 10951*7018 
N ( 10961*7019 
N < 1097 ) *7020 
N ( 10981*7021 
N ( 10991*7022 
N ( 1 1001*7023 
N ( 1 10 1 1*702*4 
N ( t 1021*7025 
Ml 1 1031*7026 
N ( 1 10*4 1 *7027 
N< 1 1051*7028 
N ( 1 106 1*7029 
N( 1 1071*7030 
N ( 1 1081*7031 
N ( 1 1091*7032 
N( 1 1 101*7033 
N( 1 1 1 1 1*703*4 
NU 1 121*7035 
Nil! 131*7036 


N( 1 1 1 *4 1 

•7037 

N i 

1115) 

•7038 

N ( 

1116) 

*7039 

N 

1117) 

* 7 0 HO 

H ( 

1118) 

* 7 0 H l 

N ( 

1119) 

* 7 0 H 2 

N ( 

1120) 

* 7 0 H 3 

N ( 

1121) 

* 7 0 H H 

N ( 

1122) 

* 70H 5 

N( 

11231 

* 7GH 6 

N ( 

112*4) 

* 7 OH 7 

N ( 

11251 

• 7 0 H 8 

N ( 

1126) 

* 7 0 H 9 

N ( 

1127) 

* 7 ObQ 

N ( 

1128) 

* 7 OB i 

Hi 

1129) 

•7052 

N ( 

1130) 

*7053 

N ( 

1131) 

* 7 05 H 

N t 

1132) 

*7055 

N ( 

1133) 

-7056 

N i 

1 13*4) 

*7057 

N ( 

1135) 

*7058 

N ( 

1136) 

*7059 

N ( 

1137) 

*7060 

N ( 

1138) 

*7061 


1139) 

*7062 

N ( 

1 1*40) 

*7063 

N ( 

1 1 *4 1 1 

* 7 06 H 

N ( 

1 1*42) 

*7065 

N ( 

1 1*43) 

*7066 

N ( 

1 1*4*4) 

*7067 

N ( 

1 1 *45) 

*7068 

N ( 

1 1*46) 

*7069 

N ( 

1 1*47) 

*7070 

N < 

1 1*48) 

*707 l 

N < 

1 1*49) 

■7072 

N ( 

1150) 

*7073 

N < 

1151) 

* 7 0 7 H 

Hi 

1152) 

*7075 

Hi 

1153) 

*7076 

Hi 

1 15*41 

*7077 

Hi 

1155) 

*7078 

Hi 

1156) 

■7079 

Hi 

1157) 

*7080 

Hi 

1 158) 

*7081 

Hi 

1159) 

*7082 

H ( 

1160) 

*7083 

N< 

1161) 

*7 OSH 

N< 

1162) 

-7085 


N ( 

1163) 

7086 

N ( 

1 AH ) 

7087 

N ( 

1165) 

7088 

N( 

1166) 

7089 

N( 

1167) 

7090 

N( 

1168) 

1 

N ( 

1169) 

7092 

N ( 

1170) 

7093 

Hi 

1171) 

7098 

N ( 

1172) 

7095 

Hi 

1173) 

7096 

H ( 

1 1 7 M ) 

7097 

N ( 

1175) 

7098 

N ( 

1176) 

7099 

N ( 

1177) 

7 100 

N { 

1178) 

7101 

Hi 

1179) 

7 102 

Hi 

1180) 

7 103 

N ( 

118 1) 

7 1 OH 

H < 

1182) 

7 105 

N ( 

1183) 

7 106 

N i 

1188) 

7 107 

N ( 

l 18b) 

7108 

N ( 

1186) 

7 109 

N ( 

1187) 

10 

N i 

1188) 

7111 

N ( 

1189) 

7112 

N ( 

1190) 

7 113 

N ( 

1191) 

7 118 

N ( 

1192) 

7115 

N ( 

1193) 

7 116 

N ( 

1198) 

7117 

N ( 

1195) 

7118 

N ( 

1196) 

7 1 l 9 

N ( 

1197) 

7120 

N ( 

1198) 

7121 

N ( 

1199) 

7122 

H ( 

1200) 

7 123 

N ( 

1201 ) 

7 1 2 H 

N ( 

1202) 

7125 

N ( 

1 203 ) 

7126 

N i 

1 208 ) 

7 127 

N ( 

1205 ) 

7128 

H ( 

1206 ) 

7129 

N ( 

1207 ) 

1 30 

N i 

1208) 

7131 

N ( 

1209 ) 

7132 

N ( 

1210) 

133 

N ( 

1211) 

1 3 H 


N < 

1212) 

7135 

N < 

1213) 

7136 

N ( 

1218) 

7137 

N ( 

1215) 

7138 

N ( 

1216) 

713? 

N ( 

1217) 

71*40 

N< 

1218) 

7 1 *4 1 

N< 

1219) 

7 1 *4 2 

Hi 

1 220) 

7 1 H3 

Hi 

1221 ) 

7 1 

N < 

1222) 

7 1 H 5 

N< 

1223 ) 

7 1 H6 

N ( 

1228 ) 

7 1 H 7 

N ( 

1 225 ) 

7 1 H 8 

N ( 

1 226 ) 

7 1 H 9 

N ( 

1227 ) 

7150 

N ( 

1228) 

7151 

N ( 

1229) 

7152 

Hi 

1230) 

7153 

H ( 

1231 ) 

715*4 

N ( 

1232) 

7155 

N ( 

1233 ) 

7156 

Hi 

1 238 ) 

7157 

N i 

1235) 

7158 

N ( 

1 236 ) 

715? 

N ( 

1 237 ) 

7160 

N i 

1 238 ) 

7161 

N ( 

1239) 

716 2 

N ( 

1280) 

7163 

Hi 

128 1) 

7 16*4 

H i 

1282 ) 

7 165 

N ( 

1 283 ) 

7166 

N ( 

1 288 ) 

7167 

N C 

1285) 

7 168 

N ( 

1 2H6 ) 

716? 

N ( 

1287 ) 

7170 

N ( 

1288 ) 

7171 

Hi 

1289) 

7172 

N ( 

1250) 

7173 

N ( 

1251 ) 

7 1 7*4 

N ( 

1252 ) 

7175 

N ( 

1253 ) 

7 176 

N ( 

1258 ) 

7177 

N ( 

1255) 

7 178 

N ( 

1 256) 

7179 

N ( 

1 257 ) 

7180 

N i 

1 258 ) 

7181 

Hi 

1259 ) 

7182 


N< 12601*7183 

N< 12891*7212 

N( 1261 » -7 1 8 *4 

N ( 12901 =721 3 

N ( 12621*7185 

N ( 1 29 1 1*721 9 

N < 1 263 1*7 186 

N< 12921*7215 

N ( 12641*7187 

N ( 12931*7216 

N ( 12651*7188 
N ( 12661*7189 

miinwin 

N ( 12671*7190 

N ( 12961*7219 

N ( 1268 1*7 191 

N ( l 297 ) -7220 

N ( 1269 1-7192 

N ( 12981*7221 

N< 12701*7193 

N ( 1 299 1 -7222 

N{ 1271 )*7199 

N< 13001*7223 

N ( 1272 1*7195 

N < 1301 1*7229 

N ( 1273 1*7196 

N( 13021*7225 

N ( 12741*7197 

N ( 13031*7226 

N ( 12751*7198 

Ml 13091*7227 

N< 12761*7199 

N< 13051*7228 

N( 1277 )«72U0 

N< 1 306 1*7229 

N ( 12781*7201 

N< 1 307 1*7230 

N ( 12791*7202 

Remind 13 

N 1 12801*7203 

DO 1 J-29,1307 

N 1 1281 1*7209 

WRITE! 131 N( J) ,P( J) 

N ( 12821*7205 

1 continue 

N ( 12831*7206 

ENd FILE 13 

N< 12841*7207 

rewind 13 

N ( 1 2851*7208 

stop 

N ( 12861-7209 
N ( 12871-7210 
N( 12881*721 1 

END 
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TABLE B-I. - OUTPUT SYMBOLS 


Variables 

Program output 

Variables 

Program output 

represented 

symbols 

represented 

symbols 

*1 

XI DD 

h , 

z, 1 

OZ1D 

f l 

Y1DD 

it o 
x,2 

0X2 D 

S 1 

Z1DD 

n y,2 

OY2D 

# 2 

X2DD 

^z,2 

OZ2D 

Y 2 

Y2DD 

X, 1 

0X1 

S 2 

Z2DD 

n , 
y,i 

OY1 

*1 

X1D 

n 1 

z, 1 

OZ1 

Y 1 

Y1D 

n x,2 

0X2 

*1 

Z1D 

n y,2 

0Y2 

Y 2 

X2D 

9 

z,2 

OZ2 

Y 2 

Y2D 

F s, MAX 

FSMX 

^2 

Z2D 

N 

S, MAX 

S NO 

*1 

XI 

f h,max 

FHMX 

Y 1 

Y1 

n h,max 

H NO 

Nil 

I-, 

Z1 

S S, MAX 

SSMX 

Y 2 

X2 

N S, S, MAX 

S NO 

Y 2 

Y2 

0 1 

TH1 

f 2 

Z2 

*1 

PHI 


0X1 D 

*L 

PS1 

n . 
y,i 

OY1D 

e 2 

TH2 

0 2 

PH2 

GS. i 
Li 

GXGR 
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TABLE B-I. - OUTPUT SYMBOLS - Concluded 


Variables 

represented 

Program output 
symbols 

Variables 

represented 

Program output 
symbols 

% 

PS2 


GYGR 

t 

TIME 


GZGR 

e 

THBR 

YHSM 

YHSM 

* 

PSBR 

NPHS 

NPHS 

0 

PHBR 

YR1M 

YR1M 

S H,MAX 

SHMX 

NPR1 

NPR1 

N S, H, MAX 

H NO 

YR2M 

YR2M 

x i 

XBR1 

NPR2 

NPR2 

Y i 

YBR1 

YR3M 

YR3M 

z i 

ZBR1 

NPR3 

NPR3 

SE3P 

SE3P 

f i 

ZBAR2 to c. g. 

SE3M 

SE3M 

7 , 

YBAR2 to c. g. 

|3 

SANG 


XBAR2 to c. g. 

FS. , 
1,1 

FXGR 

x i 

INERTIA LX1D 


FYGR 


INERTIALY1D 


FZGR 


INERTIALZ1D 
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TABLE B-H. - INPUT DATA FOR THE SAMPLE RUN 


(a) i 

3 V 6 6 

u 

1 

26 

- 1 

266 

• 608*0000 + 02 

3 

• 6027#,0Jo + 0* 





267 

•608&0000+02 

4 

•68/goooo+g* 





282 

j 18*0000+02 

5 

• b 4 o V 6 U U u ♦ U 3 





263 

• (46*0000+02 

6 

•29066UJu + 02 





284 

”•108*0000+02 

10 

• l OOuOOOlj + U 1 





28b 

. i 36*0000+02 

14 

• 1 OOOOOO.j + O 1 





286 

” . 1 08*0000+02 

IB 

• 1000GOUiJ + U1 





287 

• 1 36*0000 + 02 

1? 

•4*4goOUu+Q3 





3 u 2 

” • 62*80000+0 1 

^0 

• 1 3 7 9 <; ij ij j ♦ o 4 





303 

-.62*80000+01 

l 1 

• 1 1 34q00u+U4 





3 (J 4 

.33*30000+01 

ll 

• 2*69oOGU+0 l 





3ub 

. 33*30000 + 0 l 

26 

• l00U000u + IJl 





3 Q 6 

- • 1 3007000 + 02 

JO 

♦ l uouoooo+u l 





3 (J 7 

- . 1 3007000 + 02 

3 4 

•lOUUcOOu+Ol 





322 

• 2® 1 00000 + 02 

1 4{j 

- . 1 4 U 0 0 0 0 ij ♦ (J 1 





323 

•28100000+02 

1 4 1 

•S30UQU0u+U 1 





324 

-.2409*000+02 

142 

•18S00U0J+G2 





32b 

- . 2409S0OO+02 

143 

.97899999+00 





326 

•60620000+0 1 

1 44 

-•3619*000+02 





327 

• 60620000 + 0 1 

14b 

•**369999+0 1 





42 1 

. 42000000 + U 2 

146 

-.9789999# +00 





424 

- . 42000000 + 02 

1 4 7 

”•3619*000+02 





427 

•43400000+02 

1 4 6 

•**369999+01 





426 

”•11 28y000 + 02 

14V 

. 1 8940000+0 l 





42 V 

”•91199999+01 

ISO 

-•3396 i 00 u ♦ 0 2 





430 

” .40600000+02 

lbl 

• 881 4 (J 0 0 u + U 0 





43 1 

”. 1 1286000 + 02 

1 b 2 

- • 1 “VhqoOU + O 1 





432 

-.91199999+01 

1 b 3 

- • 3396 ) 000+02 





S62 

• 36629000 + 02 

1 b 4 

• b814oOOfJ+UO 





b 8 3 

• 36t>290 00 + 02 

lbb 

•37900000+00 





b 8 4 

• 3402*000 + 02 

1 >6 

• 1 4493000+02 





b 8 b 

. 3402*000+02 

1 b 7 

" • 36269UUu + U2 





b 6 6 

•390/9000+02 

1 b 8 

“•3790u00u + 0Q 





b 8 7 

• 390 79000 + 02 

IbV 

• 1 4493UUU + U2 





V 6 b 

•OOOOOOOo 

1 60 

-•362*900u+02 





V 6 6 

- • 3 7200000 + 02 

222 

- • l 4229UU0 + 02 





V 6 7 

•66000000+0 1 

223 

• 1 42290UU+02 





V 6 8 

• 1 7640000 + 03 

224 

”•14143000+02 





274 3 

• 662*0000 + 04 

22b 

• 1 4 l 4300U + U2 





2/44 

• 1 6OG0OO0 + OS 

226 

-• (2632000+ 02 





2 7 4b 

. 4 1 4O6U0u+0U 

111 

• 1 26 J2000»u2 





2 7 46 

. 16000000 + 0* 

242 

.3*2J700u+Q2 





2 184 

. 1 7000000-0 1 

243 

•3*237000+02 





2 1 6 b 

• 1 7000000-0 1 

244 

•42613000+02 





2 186 

. 1 7000000-0 1 

24b 

• 426 l 3 0 J 0 + 0 2 





2187 

. 1 7000000-0 1 

246 

- • 2220000 j + U2 





2 188 

. 17000000-0 1 

24 7 

”•22200000+02 





2 189 

• 1 7000000-01 

262 

. 4 1069000 + 02 





2204 

.30400000+04 

263 

• 4 1 06900u + 02 





220b 

• 30400000 + 04 

264 

-•647 6Q00O + 0 1 





2206 

• 39240000 + 04 

26b 

”•64760000+01 





2 2 0 7 

• 3^240000 + 04 


a 


Card data; other entries are tape data. 
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TABLE B-H. - INPUT DATA FOR THE SAMPLE RUN - Continued 


22 08 

• 32 /H0U00 + U 4 * 

2389 

. 73UOOOOO+OS 

22l}9 

•32740000+04 

2 4 Q 4 

. 7 3000000+0b 

2224 

• 170UCUUU-UI 

24Ub 

•730GQ00U+0& 

222b 

• 1 7000000-0 1 

24 06 

• 7 30G00U0 + 0b 

2226 

. 1 70G000Q-0 1 

2 4 0 7 

. 73000000+05 

222/ 

. 1 7000000-0 1 

2 H 0 B 

• 73OU0OOO+O5 

2226 

• 17G00GG0”01 

2 *4 U 9 

• 73000000+05 

2229 

. 1 7000000-0 1 

2664 

• UOOUOUOU 

2244 

• 30400000+04 

266b 

• 0Q000000 

2246 

•30400000+04 

2666 

. OOUOOOOO 

2 2 4 6 

• 3924qQ00+04 

266 7 

• 0 0 0 0 0 0 0 0 

2247 

. 3924Q000+04 

2668 

. oaoooouu 

2248 

. 4459rjG0u + 04 

2669 

. UOUGOOGG 

224 9 

. 44S9qU0u + 04 

2664 

• OQOOOOOO 

2264 

• 1 OOOqOOO+07 

268b 

. 000 JQOGG 

226b 

• 1 0Q0q0Uu + 0 7 

2666 

•OGUGOUGU 

2266 

• 1 ooooooo+o7 

266 7 

• OUUGOUGD 

2267 

. 1 GQ0u00u+07 

2668 

.QOGGOGGg 

2266 

• 10000000+07 

2689 

•OGGOOGGU 

2269 

• 1 auuooou + o7 

2 704 

•OOUOOOOu 

2264 

• l 620000 g + 02 

2 7 Qb 

•OQOOOOUU 

226b 

• l 620u000+02 

2 7 06 

• OOOOQOOO 

2266 

• 1 <>200000 + 02 

2 7 Q 7 

• OOUGOOJu 

2267 

• | 6200000+02 

2 7 0 8 

• OGOGOOGg 

2266 

• 1 ^ 20000 0+02 

2709 

•ogugguou 

2269 

• 1 H2000UU + 02 

2724 

• OOOGOOUU 

23Q4 

* 1 600Q00U+G2 

272b 

•OOUOOGOu 

23ub 

• 1 6000000+02 

2 7 26 

. OOOUOOOU 

2 ill 6 

• 1 6000000 + 02 

2 7 2 7 

•GOGOOGGO 

2307 

• 16000000+02 

27 28 

• uOOOGGOg 

2306 

•l800 0000+02 

2 729 

•OQOOOOOO 

2309 

• 1 8000000+02 

3960 

. b84U00Uu-0 1 

2324 

• l OGG00 Gg+O7 

396 1 

•60000000+02 

232b 

• 1 00GQ0G0 + 07 

3962 

•37000000+00 

2326 

• 1 ooooooo+o7 

3963 

• 2000000 u+ub 

2327 

• 1 QOQQOOO+07 

3964 

• 17000000 + 02 

2326 

• I 0000 GUO ♦ 0 7 

396b 

• 3 600 0 0 Go + Q4 

2329 

• 1 OOGQOOG+G7 

3966 

• 2 b 000000+00 

2344 

• 1 2000000+0 1 

3967 

•b7b3b000+00 

2 3 4b 

. 1 20 GQOQO +0 1 

963 

• OOOOOGOO 

2 3 4 6 

• 1 2000000 + 0 1 

964 

• 9000000U+00 

23*4 7 

• l 20UOOOO+0 1 

98b 

• 1 7VOOOOO + OI 

2 3 4 8 

•b2GG0G0u+Q 1 

966 

• 3b30Q0U0+Ul 

2349 

• b20G0U00+G 1 

987 

• b 1 700000 + 01 

2364 

• 1 OGOOGOO+O 1 

968 

•66400000+01 

236b 

• 1 goguoog + o 1 

969 

• 79200000 + 01 

2366 

• 10000000+01 

990 

.97099999+01 

2367 

. 1 GOGoOGG+O 1 

99 1 

• 1 0330000 + 02 

2366 

•bOOQoGGO+Ol 

992 

•97099999+01 

2369 

• bGOGOQGo+Q 1 

993 

•79200000+01 

2 3 8 *4 

♦ 73000000+05 

994 

• b 1 700000+01 

236b 

• 73O0QGGO + Ob 

99b 

. 35300000+01 

2386 

•730000 OO+OS 

996 

• 1 7900000 + 01 

2387 

• 7 3000000 + 08 

997 

•00000000 

2388 

• 73000000+08 

998 

- . 1 7900000 + 01 
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TABLE B-II. - INPUT DATA FOR THE SAMPLE RUN - Continued 


999 

- . J5300UUU+0 1 

1053 

•ooououou 

1 oou 

-•Sl/UQUOu+Ol 

1059 

-•538uu000+01 

luol 

7‘?20QUUU*0 1 

1055 

i 0600000+02 

1002 

-.97099999+01 

1056 

- . l 550000U+02 

1 U 0 3 

i 0330000+02 

105/ 

-.23/50000+02 

1009 

-.9/099999+01 

1 U58 

-•291 3000U+02 

1005 

- .79200000+0 1 

1059 

-.3100Q00U+02 

1006 

-.66900000+Ql 

1060 

-.29130000+02 

1007 

- .5 1 7 00000 + 0 1 

1061 

-•23 7 5Q00U+U2 

l U 0 8 

-.35300000+01 

1062 

- . i 993Q00U + 02 

lUO? 

-. 1 /9QQOOO + Q1 

1063 

-•15500 000 + 02 

1010 

-.9000000U+00 

1069 

-. 1 0600000+02 

1011 

•OOOOQOOO 

1065 

-.53800000+01 

1012 

. i aoooooo + o i 

1066 

-•2/OUOOUo+Ol 

1013 

. 35900000+01 

1067 

.oooooooo 

iun 

. 70/00000+0 1 

1068 

.36000000+01 

1015 

. 1 0330000+02 

1069 

.71/99999+01 

1016 

. i 3290000+02 

10/0 

. (9190000+02 

10 17 

. 1 5830000*0 2 

10/ 1 

•206/0000+02 

1018 

. 1 9920000+02 

1072 

•265/0000+02 

1019 

•206/0000+02 

10/3 

.316/0000+02 

1020 

. 1 9920U00+02 

1079 

•38890OOO+U2 

1021 

. 1 583000U + 02 

1075 

.91390000*02 

1022 

. 1 03 30000 + 02 

10/6 

•38B9000u*02 

1023 

. 70'OODOO + O 1 

10/7 

. 3 1 6/0000*02 

lu24 

. 359000011*0 1 

107 6 

.206/0000+02 

1028 

* ouooooou 

10/9 

. 1 9 l 90000 + 02 

1026 

-. 3590000u*0 1 

1080 

. / 1 799999 + 0 1 

1027 

“•7070000u*0l 

1081 

•oooooooo 

1028 

“• 1 0330000*02 

1082 

-•71799999+01 

102 9 

“• 1 5830000*02 

1 0 8 3 

-•191 9Q000+02 

1030 

-. 1 9920000*02 

1089 

" . 206 /0000 + 02 

1031 

-.206/0000+02 

1085 

- . 316 / 0000 + 02 

1032 

-. 1 9920000 + 02 

l 086 

-.38890000+02 

1033 

-. i 583000 u*02 

1087 

-.91390000+02 

10 3 4 

-. 1 3290000+02 

1088 

- .38840000*02 

1035 

-. 1 033000U+02 

1089 

-•3l 6/0000 + U2 

1036 

-.70/00000+01 

1090 

- • 265/0000*02 

1037 

-• 359uq00u + 0 1 

1091 

- . 206 /0000 + 02 

1038 

-.180 00000+01 

1092 

-• 1 4 1 40000 + 02 

1039 

•oooooooo 

1093 

-•71799999+01 

1040 

.27000000 + 0 1 

1099 

-•36000000+01 

109 1 

.53800000 + 0 1 

1095 

• ooooooou 

1092 

• 1 060000U + 02 

1096 

•45000000*01 

1093 

. i 5500000+02 

1097 

. 8 9 6 9 9 9 9 9 ♦ 0 1 

1099 

. 199 30000 + 02 

1098 

• 1 76/0000 + 02 

1 09b 

. 23750000*02 

1099 

•25890000+02 

1096 

• 29 l 30000 + 02 

1 100 

. 332 1 0000*02 

1097 

. 3 1 000000 + 02 

110 1 

• 39530000*02 

1098 

. 29 l 30000 + 02 

1 1 02 

• 4855000u*02 

1099 

.23/50000+02 

l 103 

•51670000+02 

1050 

. 1 5500000+02 

1 109 

•48550000+02 

105 1 

. l 0600000+02 

1 105 

• 3 9 5 8 0 0 0 0 ♦ 0 2 

1052 

.53800000 + 0 1 

1 106 

• 25840000 + 02 
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TABLE B-II. - INPUT DATA FOR THE SAMPLE RUN - Continued 


no 7 

. 1 7 6 7 JGUU + 02 

1 l (J8 

.a?a?wvy + ut 

1 109 

#00000000 

1110 

-. 8969999 ?+ui 

1111 

-#1 7 6/ 30 0 0 + 02 

1112 

-.25890000+02 

1113 

- . 39560000 + 02 

1119 

— #985 5 0000 + 02 

1115 

-.51 670000+02 

1116 

-# t)355o00o + 02 

111? 

- . 39560000 + 02 

ilia 

-#33210000+02 

1119 

- . 25890000 + 02 

1 120 

i 76/Q000 + 02 

1121 

-.69699999+01 

1 1 22 

- . 95000000+01 

1 123 

#00003000 

1 129 

#57600000+01 

1 125 

#11990000+02 

1 126 

. 2250000O+02 

1 127 

#330/0000+02 

1 128 

.925 10000+02 

l 129 

#506/0000+02 

1 130 

.62150000+02 

1131 

.661 39999+02 

1 132 

.62 1 50U0O+O2 

1133 

•506/0000*02 

1 139 

.33070000+02 

l 13b 

.22500000+02 

1 1 36 

. 1 1 99Q000+02 

1137 

• ooouoooo 

1 138 

- . 1 1 990000 + 02 

1 »39 

- . 22500000 + 02 

1 190 

- . 33070000 + 02 

1191 

-.506/0000+02 

1 192 

- #62150000+02 

1193 

-.66 1 39999 + 02 

1199 

“•62150000+02 

1 195 

-•506/0000+02 

1196 

-•9251 0000+02 

1197 

-•330/0000+02 

1198 

-•22500000+02 

l 199 

- . 1 199Q000+02 

1150 

-•57600000+01 

1151 

•oooooooo 

l 152 

•63099999+01 

1153 

• 12560000 + 02 

1159 

•29/90000+02 

1155 

• 36 1 / 0000 + 02 

1156 

#96500000+02 

1157 

• 559 1 0000 + 02 

l 158 

. 67960000+02 

1159 

•72339999*02 

1 160 

• 67980000 + 02 

1161 

.55910000+02 


1 162 

• 36 1 /QOOO+Q2 

1 163 

#29/90000+02 

1169 

. 1 2560000+02 

116 5 

.OOOO'JOUO 

1 166 

1 2560000 + 02 

1 167 

- . 297 90000 + 02 

1168 

-#361/0000+02 

1 169 

-.55910000+02 

1170 

-.67960000+02 

1171 

-#72339999+02 

1172 

-.67980000+02 

1173 

-.55910000+02 

1179 

- #96500000+02 

1175 

-. 36 170000+02 

1176 

- . 29 /9Q00U+02 

1177 

-. 12560000+02 

l 176 

-.63099999+01 

1 183 

. 3030000U+00 

1 189 

. 30300000 + 00 

l 185 

#30300000+00 

1186 

. 30300000+00 

1187 

. 30300000+00 

1188 

•30300000+00 

1189 

• 30300000 + 00 

l 190 

•30300000+00 

1191 

. 30300000+00 

1192 

•30300000+00 

1 193 

. 30300000+00 

1199 

•30300000+00 

1 1 95 

,30300000+00 

1196 

. 30300000 + 00 

1197 

#30300000+00 

1198 

# 30300000 + 00 

1 199 

. 30300000 + 00 

1200 

. 30300000+00 

1201 

. 30300000 + 00 

1202 

• 30300000 + 00 

1 2q3 

* 30300000 + 00 

1209 

• 30300000 + 00 

1205 

. 30300000+00 

1 206 

. 30300000+00 

1207 

. 30300000+00 

1208 

. 30300000+00 

1 209 

•30300000+00 

12 10 

•30300000+00 

1211 

. 1 2 1 90000+0 1 

1212 

. 1 2 190000+01 

12 13 

•12190000+01 

1219 

•12190000+01 

1215 

. 12190000+01 

1216 

. 1 2 1 90000 + 0 1 

12 17 

. 1 2 190000+01 

1218 

. 1 2 1 90000+01 

1219 

. 12190000+01 

1220 

. 12190000+01 
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TABLE B-II. - INPUT DATA FOR THE SAMPLE RUN - Continued 


1221 

. i 2 i hoo oo + o i 

1222 

• 1 2 1 40OUU+0 1 

1223 

• 1 2 1 4 0 0 0 0 + 0 1 

1 22H 

•121HQ000+01 

122b 

• 1 2 1 S0OOU+O 1 

1226 

• 121 '+ Q 0 O o ♦ Q 1 

1227 

• 1 2 1 4 0 U 0 0 + !J 1 

1228 

• 1214 ij 000 + 01 

1229 

• 12140000+01 

1230 

• l21'4Q00u + Ol 

1231 

• 1 2 1 40000+Q 1 

1232 

• 1 2 1 40000+01 

1233 

• 1 2 1 4OUU0 + O 1 

1 2 3 8 

• 12 140000*0 1 

123b 

• 1214 0 000 + 01 

1236 

• 12140000+01 

1237 

• 1214 0 0 0 0 + 0 1 

1 238 

• 121400 0 0 + 01 

1239 

•2/4JJOOO+01 

12HU 

•2/400000+01 

1 2H 1 

•27400000+01 

1 2H2 

•2/^00000+Ul 

1283 

• 2 7400000 + 0 1 

1 2MH 

• 27'UOOOo + Ol 

1 2 H b 

•2/400000+01 

1 2M6 

•2/400000+01 

12*4/ 

•2/400 OOu+Ol 

l 2*46 

*2/400000+01 

l 2*49 

•2/400000+01 

1 2 b 0 

•2/400000+01 

1 2b 1 

• 2/400000 + 0 1 

1 2 b 2 

• 2/400000 + 0 1 

1 2 b 3 

•2/40OOo o +01 

1 2b*4 

•2/400000+01 

12bb 

•2/400000+01 

1 2 b 6 

•2740Q00O+O1 

1 2 b 7 

•27400000+01 

1 2b8 

•2/400000+01 

1 2 b 9 

•2/400000+01 

1260 

•2/400000+01 

126 1 

•2/400000+01 

1 262 

•2/400000+01 

l 263 

•2/400000+01 

l 2 6 H 

• 2/400000 + 0 1 

1 26b 

•2/400000+01 

12 6 6 

•2/400000+01 

126 7 

•44060000+01 

1268 

• 44060000 + 0 1 

1269 

• 44060000 + 0 1 

1270 

• 44060000 + 0 1 

127 1 

• 14060000 + 0 1 

12 72 

•44060000+01 

1273 

• 440O0000 + 0 1 

1 2 7*4 

•44060000+01 


1 2 7 b 

•44060000+01 

1276 

•14060030+01 

1277 

• 1 4060000 + 0 1 

1278 

• 44060000 + 01 

1 279 

• 4V06000U+0 1 

1280 

•44060000+01 

128 1 

• l4 0 60000 + 01 

1282 

• 44060000 + 01 

1 283 

•44060000+0 1 

128** 

•44060000+01 

1 28b 

. 44060000+0 1 

1286 

•4406Q0 U 0+01 

1287 

•44060000+01 

1288 

•44060000+01 

1 289 

. 44060000+0 1 

1290 

• 44060000 + 0 1 

1291 

•44060000+01 

1292 

• 44060000 + 0 1 

12 9 3 

•44060000+01 

1 29*4 

• 44060000 + 01 

129b 

• 77280000+0 1 

1296 

• 77260000 + 0 1 

1297 

•77260000+01 

1298 

• 7 /200000 + 0 l 

1299 

* 772U0OOO + O 1 

1 300 

• 7 / 2U0O0U + O 1 

130 1 

. 7/2^0000+01 

1 302 

• 7 720Q000 + 0 1 

l 303 

•7/200000+01 

130*1 

• 7 7260000 + 0 1 

130b 

• 7/2 80000+0 1 

1 306 

• 7 7260000 + 0 1 

1 307 

• 77260000 + 0 1 

1308 

•77260000+01 

1309 

•77260000+01 

1310 

. 77260000+01 

1311 

•77260000+01 

1312 

•7/2d0OOO+Ol 

1313 

• 7 7 260000 + 0 l 

l 3 1 *4 

•7/260000+01 

l 3 1 b 

. 77260000+0 l 

1316 

•77260000+01 

131 7 

• 7 7 26Q000 + 0 l 

1 3 l 8 

• 7 7 2 8 0000*0 1 

13 19 

• 7 7260000 + 0 1 

1 320 

•7/260000+01 

1321 

• 7 7 260000 + 0 1 

1322 

•77260000+01 

1323 

• 1 26S0OOO + O2 

l 3 2 H 

• 1 2flbQ0Q0 + 02 

132b 

• 1 28b0000 + 02 

1326 

• 1 2860000 + 02 

1327 

• 1 26S0000 + 02 

1328 

• 1 28bQOO(j + 02 
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TABLE B-II. - INPUT DATA FOR THE SAMPLE RUN - Continued 


132V 

. 1 2850000+02 

1330 

• 1 285Q0Q0+02 

1331 

• l28bQU 0 0 + 02 

1332 

• 128500 00*02 

1333 

. 1 2850000+02 

1 3 3 8 

• 1 2850000+02 

1335 

•12850000+02 

l 336 

. 1 2850000+02 

l 337 

. 1 2850000+02 

13 38 

•12850000+02 

133V 

. 1 2850000+02 

13 8 0 

. 1 2850000 + 02 

13 8 1 

. 1 2350000+02 

1 3 8 2 

• 1235Q00O + 02 

l 3 V 3 

. 1 2850000 + 02 

1 388 

. 1 2850000+02 

1385 

. 1 2850000 + 02 

l 3*16 

. 1 2850000+02 

1 3*1 7 

. 1 2850000 + 02 

1388 

• 1 2850000 + 02 

138V 

. 1 2850000 + 02 

1350 

. 1 2850000 + 02 

1351 

• 1 5500000 + 02 

1352 

. 1 5500000 + 02 

1353 

. 1 5500000+02 

1 35 *1 

• (5500000*02 

1355 

. 1 5500000+02 

1356 

. (5500000+02 

1357 

. ( 5500000+02 

1358 

. ( 5500000+02 

135V 

•15500000+02 

1360 

•(55000 00*02 

1361 

. 15500000+02 

1362 

. 15500000+02 

1 363 

•15500000+02 

1 36*1 

. 1 5500000 + 02 

1365 

. 1 5500000+02 

1366 

. 15500000 + 02 

l 367 

•15500000+02 

1 368 

•15500000+02 

136V 

. 1 5500000+02 

1370 

. 15500000 + 02 

1371 

. 1 5500000 + 02 

1372 

. 15500000 + 02 

13 73 

. (5500000 + 02 

1 3 7 M 

•15500000+02 

1375 

. 1 5500000 + 02 

1376 

• 1 5500000 + 02 

1377 

. 15500000 + 02 

1378 

. 1 5500000 + 02 

1383 

- . 10330000 + 02 

138 8 

- • 1 02V000O + 02 

1385 

" • ( 0 l 800 0 0 + 02 

1386 

- . V70V9VV9+0 1 


1387 

-•eVHWVVv + oi 

1388 

- . / V 200000 + 0 1 

1 38V 

- .56800000 + 0 1 

1 3 V 0 

- • 35300000+0 l 

1 3 V 1 

. oooooooo 

1 3 V 2 

. 353000UU + U 1 

1 3 V 3 

•66800000+01 

1 3 V 8 

•8V8VVVVV+01 

1 3 V 5 

• 970V9VW + 0 1 

1 3 V 6 

. 1 0 180000+02 

1 3 V 7 

. 10330000+02 

l 3 V 8 

. 10180000+02 

l 3 V V 

. V70V9VVV+01 

1800 

. 8V8V9VV9+0 1 

1 HO 1 

. 66800000+01 

1 8 Q 2 

. 35300000+01 

1803 

• oooooooo 

1 H0H 

-•35300000+01 

1 H08 

-.66800000+01 

1806 

-.79^00000+01 

1 HQ7 

-.8V999V9V+01 

1 808 

-.970V9V99+01 

1 HOV 

- . 1 0 180000 + 02 

18 10 

-. 10290000+02 

18 11 

- . 206 / 0000+02 

18 12 

- . 2059Q0J0 + 02 

1 H 1 3 

-. 20350000+02 

18 18 

-. 1 9820000+02 

18 15 

- . 1 7VQ0O0O + O2 

1 H 1 6 

-. 15830000 + 02 

18 17 

- . 1 32VQ000 + 02 

1 8 1 8 

-.70/00000+01 

1 8 1 V 

•oooooooo 

1 820 

. 70700000+01 

1821 

. 1 32V0OOO+02 

1822 

. 1 7V0000O+02 

1823 

. 1 V820000 + 02 

1828 

. 20350000 + 02 

1825 

. 20670000 + 02 

1826 

. 20350000 + 02 

1827 

. 1 V820000+02 

1828 

. 1 7V00000+02 

182V 

. 13290000 + 02 

1830 

•70/00000+01 

1831 

. oooooooo 

1832 

-.70700000+01 

1833 

-. 1 3290000+02 

1838 

-. 15830000+02 

1835 

- . 1 7 V00000+02 

1836 

-. 19820000+02 

1837 

- • 20350000+02 

1838 

"•20^ 7 0000+02 

183V 

• • 3 1000000*02 

1880 

-•30880000+02 
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TABLE B-n. - INPUT DATA FOR THE SAMPLE RUN - Continued 


1441 

-•30530000+U2 

1 442 

-.29 1 3000 |J + 32 

14 4 3 

- • 2<>8b0U00 + 02 

1 ^ H M 

- . 23750000+02 

1445 

- . 19930000+02 

1446 

-• 10600000 + 02 

144/ 

•00000000 

l 44 S 

• 10600000 + 02 

1 449 

. 19930000 + 02 

1450 

•26850000+02 

IH51 

•2^1 30000+02 

1452 

» 30b3000o + 02 

1 453 

• 3 1000000 + 02 

1454 

• 30b30000 + U2 

1455 

•29130000+02 

1456 

. 268b00UU + Q2 

1457 

• 1 9930000 + 02 

i 458 

. 1 0600000+02 

1459 

. 00000000 

1460 

- . 1 0600000 + 02 

1461 

“• (9930000+02 

1462 

“•23750000+02 

1463 

” • 2<>8b0000 + 02 

1464 

“•291 30000+02 

146b 

-•30530000+02 

1 466 

-• 30880000 + 02 

1467 

-.41340000+02 

1468 

-•41 16000U+02 

1469 

-.4071 0000+02 

1470 

-. 38040000 + 02 

1471 

-•3^000000+02 

1472 

-•3 1 6 70000 + 02 

1473 

-. 26b 70000 + 02 

1474 

-• 1 4 1 40000 + 02 

J47b 

• oooooooo 

1476 

. 1 4 140000+02 

1477 

• 265/0000 + 02 

1478 

• 3^800000 + 02 

1479 

•38640000+02 

1480 

.40/10000+02 

1481 

• 4 1 340000 + 02 

1482 

.4071 0000+02 

1 483 

• 38840000 + 02 

1484 

•35000000+02 

l 48S 

• 2 65 7 0 000 + 02 

1 486 

. 1 4 1 4QOUO + 02 

1487 

•oooooooo 

I486 

-•14 140000+02 

1489 

-.285/0000+02 

1490 

-.3 16/0000+02 

1491 

-. 35800000+02 

1492 

-.38840000+02 

1 493 

-.40/10000+02 

1494 

-.411 60000+02 


IMVS 

-•S16700UU+02 

[H 96 

-. 514/ o 0 0 0 + 02 

l 497 

-•5089U0UU+02 

1 498 

- • 48bbQ000 + 0 2 

1 499 

“ . 4 4 7bOOOO + 02 

i*UD 

-•39bdoOOu+G2 

1*0 l 

*•33210000+02 

i*U2 

- . 1 7ft /00 00 + 02 

lbU3 

•oooooooo 

1*04 

. 1 7670000+02 

1*0* 

• 332 1 (JOOu + 02 

1 *06 

•44/50000+02 

1*0 7 

. 485500 'Ju + 02 

ibua 

♦50890000+02 

1 b G 9 

•516/0000+02 

lb IU 

♦5089Q000+02 

lb 1 1 

.48550000+02 

1*12 

.44/50000+02 

l b l 3 

• 332 1000O + 02 

1*14 

• 1 76 /0000 + 02 

lblb 

• oooooooo 

1 b 1 6 

-. 1 7670000 + 02 

lbl 7 

-•33210000+02 

l b 1 8 

-•39560000+02 

1 b 1 9 

-•44750000+02 

1*20 

-•46550000+02 

1*21 

-•5089Q000+02 

1*22 

- .5 1 470000+02 

1*23 

-•66139999+02 

1*24 

-•65669999+02 

1*2* 

“•651 29999+02 

1*26 

-•62 1 50000+02 

1*2/ 

-•57280000+02 

1*28 

“•50670000+02 

1*29 

"•42510000+02 

1*30 

"•22500000+02 

1*31 

• OOOOOOOO 

1*32 

• 22500000 + 02 

1*33 

.4251 0000+02 

1*34 

•57260000+02 

1*3* 

• 62 1 50000 + 02 

1*36 

•65129999+02 

1*3 7 

•66 1 39999+02 

1 *38 

•65129999+02 

1*39 

•62 1 50000+02 

1 * 4 Q 

•57280000+02 

1*41 

•4251 0000+02 

1*42 

•22500000+02 

1**13 

•OOOOOOOO 

i 5 M 

“•22500000+02 

1*4* 

-•42510000+02 

1*46 

-•506/0000+02 
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TABLE B-H. - INPUT DATA FOR THE SAMPLE RUN - Continued 


1 b V7 

-.5726Q000' f 02 

5202 

• 30000000-0 1 

1 bV8 

- • 62 1 50000+02 

5203 

. 30000000-01 

lbW 

6b 1 29999+02 

520V 

•30000000-0 1 

16 5 0 

■ • 6saa v?9<? + 02 

5205 

. 30000000-01 

1551 

“• 72339999+02 

5206 

• 30000000-0 1 

155 2 

- . 720b 9999+02 

5207 

•30000000-01 

lb 53 

-.7124QOOO+U2 

5208 

. b000000u-u 1 

l b b *4 

-•6798o00o+02 

5209 

•b0000000-01 

1 bbb 

" • 626bgOUu + 02 

5210 

•60000000-01 

1 b b 6 

-.55410000+02 

5211 

•60000000-01 

1657 

” .46500000+02 

52 12 

• 60000000-0 1 

1558 

- . 2 4 7 4 0 U J 0 + 0 2 

5213 

•60000000-01 

1559 

•00000000 

521V 

•60000000-0 l 

1560 

•24740000+02 

5215 

• 30000000-0 1 

1561 

•465U0UUU+02 

^216 

•30000000-0 1 

1562 

• 62650000 + 02 

52 1 7 

• 30000000-0 1 

1563 

• 6 7 V B o 0 0 o + o 2 

52 18 

•200000UU-01 

15 6V 

.71240000+02 

5219 

•20000000-01 

1 b 6 b 

• 72339999 + 02 

5220 

• 20000000-0 1 

1566 

•71240000+02 

522 1 

•20000000-01 

1567 

•67980000+02 

5222 

•20000000-01 

1568 

•626b 0000+02 

5223 

•20000000-01 

156V 

• 46b0000o + 02 

522V 

•2000000U-01 

1 b 7 0 

. 2 9 7 4 0 0 0 0 + 0 2 

5225 

•20000000-01 

1571 

•00000000 

5226 

♦20000000-01 

1572 

-•2174Q000+02 

5227 

.30000000-01 

1573 

-»46b0000o+02 

5228 

•30000000-01 

1 57*4 

-.bbH0000+02 

5229 

.30000000-0 1 

1575 

-•626b0000+02 

5230 

•50000000-01 

1576 

- *67960000+02 

523 1 

• 50000000-0 l 

15 77 

-•7124000U+02 

5232 

•50000000-01 

15 78 

"♦72039999+02 

5233 

•60000000-01 

5180 

•30000000-01 

523V 

•50000000-01 

5181 

•30000000-01 

6235 

•5000000U-01 

5182 

•30000000-01 

5236 

•50000000-01 

5183 

• 30000000-0 1 

5237 

.50000000-01 

518*4 

•30000000-01 

5238 

• 50000000-0 l 

5185 

•30000000-01 

5239 

•50000000-01 

5 1 86 

• 30000000-0 1 

6 2 *4 0 

•50000000-01 

5187 

•30000000-01 

62V 1 

.50000000-01 

5188 

• 30000000-0 1 

5 2 V 2 

•50000000-01 

618V 

•30000000-01 

5 2 V 3 

•30000000-01 

5190 

• 30000000-0 1 

6 2 V V 

.30000000-0 1 

5191 

• 30000000-0 1 

5 2 VS 

•20000000-01 

5192 

•2000000U-01 

5 2 V 6 

•20000000-01 

5 1 93 

•20000000-01 

5 2 V 7 

•20000000-01 

6 1 9*4 

•20000000-01 

5 2 V 8 

•20000000-01 

5 195 

•20000000-01 

5 2 V 9 

•20000000-01 

5 l 96 

•20000000-01 

5250 

. 12000000-01 

6197 

• 3000000U-0 1 

5251 

•20000000-01 

b 198 

• 30000000-0 1 

5252 

•20000000-01 

5 1 99 

• 30000000-0 1 

5253 

•20000000-01 

5200 

•30000000-01 

525V 

•20000000-01 

5201 

•30000000-01 

5255 

•20000000-01 
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TABLE B-II. - INPUT DATA FOR THE SAMPLE RUN - Continued 


52b6 

. 30U000 JO-0 1 

33 10 

. i 2000000-0 1 

52b7 

.30000000-0 1 

3 3 1 1 

.20000000*01 

52b« 

.5000Q0UU-U 1 

3312 

.20000000-01 

52b? 

.50000000-01 

3 3 1 3 

. 300U0000-0 1 

5260 

. 5000000U-0 l 

b3 1 4 

.50000000*0 l 

b 2 6 1 

. bOOOOOOO-O 1 

b 3 1 b 

.50000000-0 1 

b 2 6 2 

.50000000-U 1 

b 3 1 6 

.SOUOOOOu-Q 1 

5 2 6 3 

. 5UOU00OU-0 1 

3 3 17 

. 50000000-0 1 

b 2 6 M 

• 500000 Ju-o l 

33 18 

. 50000000-0 1 

b 26b 

. 50000000-U 1 

33 19 

. 50000000-0 1 

b 2 6 6 

.500U0030-U1 

3320 

. 1200000U-01 

b26 7 

.50000000-0 1 

332 1 

. 1 2OU00JU-0 1 

5 2 6 8 

. 50000000-01 

b 3 2 2 

. 1 2000000-0 1 

b 26 V 

.50000000-01 

332 3 

. 1 20000 JO-0 1 

b 2 7 (J 

. bOOOOGOu-O 1 

3 3 2 4 

. 120U00JU-U1 

b 2 7 1 

. 30000000-0 1 

b 3 2 b 

. 12000000-0 1 

b 2 7 2 

• 2OOU00 0 0- 01 

b 3 2 6 

. 12000000-0 1 

b 2 7 3 

•2UUU00UU-01 

b 3 2 7 

. 1 200000U-0 1 

b 2 7 M 

. l 2000000-0 1 

3328 

. 12000000*0 1 

b 2 7 b 

. 1 2000000-0 1 

3329 

. 12000000*0 l 

b 2 7 6 

. i 20 JOOOO-O 1 

3330 

. 1 2000000-0 1 

b 2 7 7 

. 1 2000000-0 1 

33 3 1 

. 12000000-0 1 

b 2 7 6 

♦12000000-01 

3332 

. 1 2000000-0 1 

b 2 7 V 

.[2000000-01 

3333 

• 1 2000000"0 1 

5 2 8 0 

•12000000-01 

3334 

• 12000000-0 1 

b 2 b 1 

. 1 2000000-0 1 

3333 

. 12000000-0 1 

b 2 b 2 

. 1 200000J-01 

3336 

. 1 2000000-0 1 

b 2 b 3 

. 2000000 J-0 1 

333 / 

. 1 2000000-0 1 

52BH 

. 200O0000-O 1 

333b 

. 1 2000000-0 1 

b2bb 

. 30000000-0 1 

333V 

. 1 2000000-0 1 

b2b6 

.50000000-0 l 

b 3 H q 

. 1 2000000 - 0 1 

b 2 b 7 

. 50000000-0 1 

334 1 

. 1 2000000-01 

b 2 b 8 

.50000000-01 

3342 

. 12000000-01 

b 2 b V 

•SOOOOOOo-O 1 

3343 

. 12000000-01 

5290 

.50000000-0 1 

3344 

. 1 2000000-U 1 

529 1 

.50000000-0 1 

3 3 43 

. 1 2000000-U 1 

b 292 

.50000000-01 

3346 

. 1 2000000-U 1 

b 2 *7 3 

. 50000000*0 1 

334 / 

. 1 2000000-0 1 

5 2 9 8 

.50000000-0 1 

3348 

. 1 200Q00U-U 1 

529b 

.50000000-01 

3349 

. 1 2000000-0 1 

b 2 V 6 

•SOOOOOQu-Ol 

3 330 

. 1 200000U-0 1 

b 2 V 7 

•50000000-01 

333 1 

. 1 2U00000-0 1 

b 2 V 8 

. 50000000-01 

3332 

. 1 2000000-0 1 

b 2 *7 9 

.30000000-01 

3333 

. 1 2000000-01 

b 300 

•20000000-01 

3334 

• 12000000-0 1 

b 3 0 1 

. 200U0000-0 l 

3333 

. 1 2000000-0 1 

b 302 

. 1 2000000-0 1 

3336 

. 1 200000U-0 1 

b30 J 

. 1 2000000-0 1 

3337 

. 1 2000000*01 

b 30b 

•12000000-01 

3338 

. 120000 UO-Ul 

b 3 Ob 

• 12000003-01 

3339 

. 1 2000000-01 

b 30b 

. 1 2000000-0 1 

3360 

. 12000000-01 

b 3 0 7 

. l 2000000*01 

336 1 

• 12000000-0 1 

b308 

.[2000000-01 

3362 

. 1 2000000-0 1 

5309 

. l 2000000-0 l 

3363 

. 1 200000U-0 1 
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TABLE B-II. - INPUT DATA FOR THE SAMPLE RUN - Continued 


b36 4 

. 1 200003U-0 1 

b^65 

. l 200QUUU-G1 

b 3 6 6 

. 1 2UU300U-01 

b 3 6 7 

. 12000000*01 

b 3 6 B 

• 1 2000U0U-Q I 

b 3 6 V 

. 1 2000U0U-U 1 

b 3 7 0 

. 1 200000U-0 1 

b 37 1 

. 1 200J0UU-0 l 

b 3 7 ^ 

. 1 2000000*0 1 

b 3 7 3 

. 1 2000000-01 

b 3 7 4 

. 1200000U-01 

b 3 7 5 

•12000000-01 

b 3 7 6 

•50000000-0 1 

b 3 7 7 

• 50000000-0 1 

b 3 7 B 

•50000000-0 1 

b 3 7 9 

•5000000U-01 

b 3 B 0 

•50000000-01 

b 3 8 1 

• 500000 0 0 - 0 1 

b 3 B 2 

•50000000-0 1 

b 3 8 3 

.30000000-0 1 

b 3 B 9 

♦2000000U-0 1 

b 38 b 

. 1 2000000-0 1 

b 3 B 6 

• 1 2000000-01 

b 3 8 7 

• 12000000-01 

b 3 B 8 

• l200000U”01 

b 3 8 9 

. 1 20U0U00-0 l 

b 3 9 0 

• 1 2000000-0 1 

b 3 9 1 

. 1 2000000-01 

b 3 9 2 

• 1 2000000-0 1 

b 3 9 3 

. 1 2000000-0 1 

b39 4 

• 12000000-01 

b 3 9 b 

• 1 2000000-01 

b 3 9 6 

•20000000-01 

b 3 9 7 

• 30000000-0 1 

b 3 9 8 

•50000000-01 

b 3 9 9 

•50000000-0 1 

b400 

•50000000-01 

b 4 Q 1 

•50000000-01 

b 4 U 2 

•50000000-01 

b 4 U 3 

•50000000-01 

b 9 39 

• 2 0 0 0 0 0 0 0 + 0 1 

b 9 4 3 

•31818000+08 

b 9 4 4 

•26100000+00 

b 9 4 0 

•80000000+01 

b 9 4 1 

• 28000000 + 02 

b 9 4 2 

•60000000+01 

6b0l 

• 50000000 + 0 1 

6 b 0 2 

• 1 0000000 + 02 

6 b 0 3 

•20000000+02 

6 b U 4 

• 30000000 + 02 

6bUb 

• 40000000 + 02 

6 b 08 

•50000000+02 

6 bQ 7 

• 70000000+02 

6 b 08 

•90000000+02 

6 b Q9 

• 1 1000000 + 03 


6510 

• 1 300000O + 03 

651 1 

• 1 5000000 + 03 

6b 1 2 

•16000000+03 

6b 1 3 

• 1 7000000 + 03 

6b 1 *1 

• 1 800000U*03 

65 1 5 

• 1 9000000 + 03 

65 1 6 

•20000000+03 

65 1 7 

•21000000+03 

65 16 

•230O00U0+J3 

65 1 9 

•25000000+03 

6520 

•27000000+03 

652 1 

•29000000+03 

6522 

•3100000U+03 

6523 

• 32000000 + 0 3 

6528 

•33000000+03 

6525 

• 38000000 + 03 

6526 

•35000000+03 

652 7 

• 35500000 + 03 

6528 

• 360000 JJ + U3 

6 5 8 1 

• 103381 80+02 

6582 

• 20668280 + 02 

6583 

• 3 1 00282u + 02 

6588 

•8l33e56o+02 

6585 

•516/Q7UJ+02 

6586 

•58833000+02 

658 7 

• 66 1 388VV + U2 

6588 

• 72339000 + 02 

6 5 6 1 

•87200000+02 

6562 

•8700000U+02 

6563 

• 7 7 5 9 9 9 9 V ♦ o 2 

5935 

• 88500000 + 02 

5936 

• 1 7000000 + 02 

59 3 7 

-•22800000+02 

7009 

•25000000+08 

70 10 

• 36000000 + 0 1 

70 11 

• 25 0 000 U 0 + 08 

701 2 

♦ 3600000U + 0 1 

7013 

• 25000000 + 08 

70 18 

•360000UU+01 

7 0 15 

•00000000 

7 0 1 6 

•19220000+02 

7 0 1 7 

• 37 l 30000 + 02 

70 18 

•52500000*02 

70 19 

•68299999+02 

7020 

•71719999+02 

7 02 1 
7022 


7023 

•68299999+02 

7028 

•52500000+02 

7025 

• 3 7 1 3oOJo + 02 

/026 

• 1 9220000 + 02 

702 7 

•00000000 

7028 

-• 1 9220000+02 

7029 

“•371 30000+02 

7030 

-•5250000U+02 
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TABLE B-II. - INPUT DATA FOR THE SAMPLE RUN - Continued 


/ U 3 1 

-.69299999*02 

7 U 3 2 

-.71/19999+02 

7033 

-. 79250000 + 02 

71)3*4 

-.71/ 19999+02 

7u3b 

-.69299997+02 

7 U 3 6 

- . 52500000*02 

703 7 

-.37 13Q0UU+U2 

7 U36 

-. 19220UD0+U2 

703V 

.QUUUOOUO 

70*40 

. I 9 6 l 0 0 0 0 + 02 

7 0*4 1 

. 37880000+02 

7 0*42 

. 5 3 b 6 0 0 0 0 + U 2 

7 0 M 3 

•65599999+02 

7 0*4*4 

.731 69999+02 

7uHb 

. 75750003+02 

70*46 

.73169999+02 

7 U *4 7 

•65599999*02 

70*48 

•53560000+02 

70*49 

. 3 7 ft 6 0 0 0 0 + 0 2 

7U50 

. i 96 l OQOo+02 

70S 1 

. ooooouuo 

70S* 

-. 196 10000 + 02 

7 Ob 3 

-.37880000*02 

7 0 b *4 

-.535630 00 + 02 

7 Ob b 

-.65599999+02 

7 0 b 6 

-. 73169999 + 0 2 

7 Ob 7 

-.75/50000*02 

7 Ob 8 

-. 73 1 69999 + 02 

7 0 b 9 

-•65599999+02 

7 0^ 0 

-•53563000*02 

7uM 

- . 3 / 6 ft o 0 0 0 + 0 2 

7062 

-. (96 10000+02 

7063 

.00003000 

706*4 

• 1 9230000+02 

7 06b 

.37 1 b 0 0 0 0 ♦ 0 2 

7Q66 

•52533000*02 

7 06 7 

. 69339999+02 

7068 

. 7 1 / b9999+02 

7069 

. 79290000*02 

7 0 7 0 

•71/59999+02 

707 1 

. 69339999+02 

7072 

•52533000+02 

7 07 3 

.371 b0000 + 02 

7 0 7 *4 

. 1 9230000*02 

7 U 7 b 

•000U0000 

70 7 6 

- . 1 9230000+02 

7 U 7 7 

-.37 1 b0000+02 

707 8 

-.52530000*02 

7 079 

-.69339999+02 

7080 

-.71759999*02 

708 1 

-.79290000+02 

7082 

-.71759999*02 

7083 

-.69339999+02 

7 0 8 *4 

“•52530000+02 

7Q8b 

-.37150000*02 


7 OB 6 

-. J9230000 + 02 

/Ob 7 

. 1 6 bb 000 u *02 

/ 08 B 

. j 66 60000*02 

7089 

. | 6bb J0UU+U2 

709 0 

. j686 0 0Ju + U2 

7 U 9 1 

. j 68600 00*02 

7 0’ 2 

. i6bt»0 00u + 02 

7 09 3 

• i6bd'j000 + 0 2 

7099 

. 1 68ft000u+U2 

/ 0 9 5 

. i6b600 0u + 02 

/ 0 9 6 

. j 68 o000u*02 

/ 0 9 7 

, 1 6 bb 0000+02 

/ 0 9 ft 

. j 68600 00+ 02 

/ 0 9 9 

. j 68b0000*U2 

7 l 00 

• i68B000u + 02 

7 10 1 

• i 6 bb 000 o + 02 

7 1 02 

. j 6600000*02 

7 103 

, 1 66OQ000 *02 

7 109 

. 1 6800000+02 

7 105 

•16000000+02 

7 106 

. 1 6880000+02 

7 107 

• i6faoo00o+02 

7 1 08 

. 16800000+02 

7 109 

. j 68O0UO0 + 02 

7 110 

.16800000*02 

7 111 

.21070000*02 

7 112 

.21070000*02 

7 113 

•210/00UU+U2 

7 119 

•21070000*02 

7 115 

•2l0/00Ju+02 

7 116 

•210/0000+02 

7 1 1 7 

. 2 10/0000*02 

7 1 lb 

• 2 1 0/00 30 + 02 

7 1 1 9 

•21070000*02 

7 120 

. 2 1070000*02 

7 12 1 

• 2 1 07 0000*02 

7 122 

•210700JO+02 

7 123 

•2l07oOJO+U2 

7 129 

•210/0000+02 

7 1 25 

•21070000+02 

7 l 26 

. 210/0000+02 

7 12/ 

•210/0000*02 

7 1 28 

.210/0000+02 

7 129 

. 2 10/0000+02 

7 1 30 

•21070000*02 

7 131 

•21070000*02 

7132 

.210/0000*02 

7 133 

•21070000+02 

7 1 39 

. 2 1 070000+02 

7135 

. 25000000+02 

7 1 36 

.25000000*02 

7 137 

. 25000000+02 

7 138 

• 25000000*02 

7 1 39 

. 25000000*02 

7 190 

• 25000000 + 02 
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TABLE B-E. - INPUT DATA FOR THE SAMPLE RUN - Continued 


7 l M 1 

• 25UU0UGU+O2 

7 1 V3 


7 1M2 

•25000000+02 

7 1 VM 


7 i M3 

•25U0000U+02 

7 1 V 5 


7 1 MM 

. 25000000+02 

7 196 


7 IMS 

•25000000+02 

7 1 V7 


7 i M6 

• 25000000 + 02 

7 198 


7 1M 7 

•25000000+02 

7 199 


/ 1 M8 

• 250 J0O0O + U2 

7*00 


7 1 MV 

•25000000+02 

7*0 1 


7 ISO 

• 2500000U+02 

720* 

- • 

7 1 b 1 

. 25000000+02 

7203 

- . 

7 AS* 

. 2500000U+02 

7 * (J M 

- * 

7 1 S 3 

•25000000+02 

7 2 0 S 

- * 

7 ISM 

•25000000+02 

7*06 

- , 

7 ASS 

• 25000000 + 02 

7207 

• . 

7 1 S6 

• 250UQ000+02 

7208 

- • 

7 1 S 7 

• 2500000U + 02 

7209 

- ♦ 

7 A SB 

• 25000000 + 02 

7210 

- * 

7 A S V 

-• 74250000+02 

721 l 

- , 

7 A 60 

“• 719 19999 + 02 

72 12 

- . 

7 1 6 A 

- .64299999+02 

72 1 3 


7 162 

-•52500000+02 

72 1 M 


7 163 

“•39130000+02 

72 15 


7 1 6M 

-• 1 9220000+02 

7216 


7 1 6 S 

•ouoooooo 

7*1 7 


7 166 

• 19220000 + 02 

72 18 


7 16 7 

•3? 130000+02 

7* 1 9 


7 168 

• 525U000U+02 

7*20 


7 169 

. 64299999 + U2 

722 1 


7 170 

•71719999+02 

7*22 


7 17 1 

. 74250000+02 

7223 


7 17 2 

• 7 1 7 1 9999+02 

7 2 2 M 


7 17 3 

•64299999+02 

7 2 2 5 


7 17 M 

•52500000+02 

7226 

- # 

7 1 7S 

•37130000+02 

7 227 

- , 

7 i 76 

• 1 922Q0U0 + IJ2 

7228 

M* 

7 l 7 7 

•ooooouuu 

7229 

* « 

7 1 7 6 

-. 1 9220000 + 02 

7 230 

* • 

7 i 7 9 

-•371 30000+02 

1 \ 


7 180 

-.52500000+02 

2 


7 i 8 i 

-•64299999+02 

6 


7 l 82 

-.717 1 9999+02 

7 


7 183 

-•75750000+02 

22 


7 IBM 

-•73169999+02 

1 10 


7 1 as 

- • 655999 99*02 

1 1 1 

V (a) 

7 186 

- .53560000 + 02 

1 12 

f 

7 187 

- .3 /860000 + 02 

1 M 

- . 

7 188 

“• 1961 0000*02 

1 lb 1 


7 1*9 

• 00000000 

1 26 

- , 

7 190 

• 196 10000 + 02 

b 9 9 S 

• • 

7 19 1 

• 37880000 + 02 

S93U 


7 192 

• 53560000 + 02 

593 1 y 



6559999 9 + 02 

73 l 69999+02 

75/50UUU+02 

73 169999+02 

65599999+02 

53560UUU+02 

3/860000+02 

1 96 1 OUUU +02 

OOOUOOUU 

1961 0000+02 

37860000*02 

53560000+02 

65599999+02 

73 1 69999+02 

7929Q00U+02 

7 1 759999+02 

64339999+ J 2 

52530000+02 

37 1 60000+02 
1 9230000+02 

ooouoooo 

1 9230000+02 
37 1 50000+02 
52530000+02 
64339999+02 
7 l 759999+02 
7 4 2 9 0 0 0 0 ♦ U 2 
7 1759999+02 
64339999+02 
525 50000+02 
37 150000+02 
19230000+02 
00000000 
1 9230000+02 
37150000+02 
52530000+02 
64339999+02 
71759999+02 
1 OQUOOOO-02 
1 QJUQOOO+OO 
26060000+02 
20000000-02 
26 190000+01 
43500000+02 
32000000+02 
OOOUOOOO 
27500000+02 
OOOUOOOO 
38609000+03 
1 4000000+U 1 
.53220000+U 1 
.75750000+02 


3 . 

Card data; other entries are tape data. 
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3Vbb 

3*b? 
J* 6(J 

3 V 6 1 
3 V 6 2 
3? 6 4 
3 V 6 b 
3 V 6 / 
22U4 
22 U& 
2^06 
22ij7 
2 ^Ub 
22 UV 
2244 
2 2 4b 
2246 
224 7 
2 ^Hb 
2 2 4V 
2 7 4 4 
2 74c> 
2 7 4 3 
2/ 4 b 
622 


TABLE B-H. - INPUT DATA FOR THE SAMPLE RUN - Concluded 


\ 


} (a) 


J 


• 6 J0U0UUu + 0 l 

• 2 UOtJsjOUu“Ul 

• 70 4j(J0UU“D1 

• 1 00'J0UUU*L) 3 

• l OU JOUUlJ + U 1 

• | S 0 U 0 0 0 U ♦ 0 0 

• 1 6 0 o 0 U 0 o ♦ 0 ** 

• SSd-MjUUu + OCl 
. MHbUOUOu+UH 

• J 6 i U 0 U U 0 ♦ Ij H 

• V 7 6 ij J 0 0 u + i j H 

• 9 0 1 J 0 U U ij ♦ 0 4 

• V 26 u 0 l)JlI + 0 H 
. 5 1 liUOUUu + OH 

• HH'jUUOuu + JH 

• 366 t J 0 UUu + UH 
•V/6U0UUU+U4 
• 9U l 30UUJ+0H 

• 926iJ0UUu*UH 

• SjlUJOUOd + OS 

• 730 JUUdu f 0 b 
• 73UJQUUU + 0b 

• 9 1 3 d o 0 0 0 * J H 

• 1 1 l . j 0 0 J J * 0 0 
• h 70U0Uuu*u2 


Card data; other entries are tape data. 
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LBC -6 
NOTHT * 28 



Figure B-3. - Heat-shield point pattern used for the sample run. 
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(a) Strut total force as a function of time . 



(b) Strut honeycomb force as a function of time. 
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(c) Strut stroke as a function of time. 

Figure B-7.- Strut 4 microfilm-recorder graphs from the sample 
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(b) Strut honeycomb force as a function of time 
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(c) Strut stroke as a function of time. 


Figure B-8. - Strut 5 microfilm -recorder graphs from the sample run 


4 















H C 



TIME(SEC) 


(c) Strut stroke as a function of time. 

Figure B-10. - Strut 7 microfilm -recorder graphs from the sample run. 
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(a) Right-side strut force as a function of time. 
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(b) Right-side strut stroke as a function of time. 

Figure B-ll.- Right-side microfilm-recorder graphs from the sample run. 
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(b) Left- side strut 


Figure B-12. - Left- side 
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stroke as a function of time . 

Im-recorder graphs from the sample run. 
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(c) Distance ZBAR2 (Zj) to c.g.^ as a function of time. 

Figure B- 13. - Distances XBAR2, YBAR2, and ZBAR2 to c.g... as functions 

of time. 
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(a) The component of the absolute acceleration of c.g.^. 
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(b) The component of the absolute acceleration of c.g.^ 

Figure B-14.- Microfilm-recorder graphs of the absolute acceleration of c.g^ 

during the sample run. 
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(a) Inertial X1D (Xj) 


as a function of time. 



(b) Inertial Y1D (Yj) as a function of time. 



(c) Inertial Z1D (Z^ as a function of time. 

Figure B-16.- Inertial X1D, Y1D, and Z1D as functions of time during the 

sample run. 
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(a) The i component of acceleration as a function of time. 
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(b) The j 0 component of acceleration as a function of time. 

Li 
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(c) The k„ component of acceleration as a function of time. 

Li 

Figure B-17. - Crew-couch acceleration as a function of time during the sample run 





(a) Angle ^ as a function of time. 



(b) Angle e as a function of time. 



(c) Angle 0 as a function of time. 

Figure B-18. - Microfilm- recorder graphs of \j/, q , and <p during the sample ru 
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NASA Technical Note D-6539 


A FORTRAN V PROGRAM FOR PREDICTING 
THE DYNAMIC RESPONSE OF THE 
APOLLO COMMAND MODULE TO EARTH IMPACT 

By William E. Thomas, Jr. 

October 1971 

In the description of symbol LBC, change the word "length" to read 
"identifying number. " 

(1) In the description of symbols X, Y, Z, change the axis designations 

X, Y, Z to X, Y, Z. (2) In the description of symbols Y 1 -, Z 1 , , 
change the symbol c.g. g to c.g. y p ’ p ’ 

In equation (1), change element 31 from sin 0 sin 0 + cos 0 sin 0 cos 0 
to sin 0 sin 0 + cos 0 sin 9 cos 0. 

The beginning of the fifth line should read "... the strut relative to the 
other. " 

The last five words in line 6 should read "... considered to be simply 
supported . . . . " 

Replace the word "friction" with the word "horizontal" in the first line 
following equation (53). 

(1) In the third line of paragraph 3, the phrase "... loading the edge-ring 
data. " should read ". . . computing edge-ring loads. " (2) The last five 
words in line 17 of paragraph 3 should read "Given the value at x . . . . " 

The symbols X^ and Y^ should be X^ and Y^. 

(1) The last line of the second paragraph should read ". . . FORMAT (915).'* 

(2) The second item in the " Card code " column should read "Integer value" 
with corresponding " Input " description "Number of floating-point values to 
be input on cards. " (3) An additional item should be inserted between 
"Integer value" and "Integer < 19" in the " Card code " column as follows: 
insert the number "6" in the " Card code " column. The corresponding 
"Input" description should read "Number of auxiliary differential equations 
(control equations, etc. ) to be integrated in the Runge-Kutta subroutine. 
This number is now 6 and may not exceed 18. " 


Page 82: Change ’’ Re marks " for "Identification numbers" 110, 111, and 112 to read 

"Temporary values at input time only. (A card for each variable must be 
included each time a stacked run is made, even for zero values. )" 

Page 90: The bracketed "Remark" does not apply to "Identification numbers" 7666, 

7667, and 7668. 

Page 91: The first two sentences in the third paragraph should be inserted in the 

seventh line of the first paragraph, so as to precede the sentence that begins 
"The integers used . . . . " 

Page 92: Eliminate the sentence that begins "All other data ..." from line 5 in the 

paragraph headed "SAMPLE PROBLEM. " 

Page 136: The bolt circle is labeled incorrectly; it should be the circle generated 

by r 6 . 


Page 146: 
Page 149: 
Page 150: 


The legends for graphs 
The legends for graphs 
The legends for graphs 


(a) and (c) should be exchanged. 

(b) and (c) should be exchanged, 
(a) and (c) should be exchanged. 


Issued October 1972 


NASA-Langley, 


